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A THREE-DIMENSIONAL SOLUTION OF FLOWS OVER 
WINGS WITH LEADING-EDGE VORTEX SEPARATION 
Part II — Program Description Document 

Ronald G. Coleman, Forrester T. Johnson, and Paul Lu 
Boeing Commercial Airplane Company 


SUMMARY 


A computer program has been developed for the solution of the subsonic, 
three-dimensional flow over wings with leading-edge vortex separation. The 
documentation is divided into two volumes, Part I and Part II. 

This volume is Part II of the documentation containing the description of the computer 
program. It consists of three sections presenting the Program Logic, the Description of 
Subroutines, and the Program Listing. 


INTRODUCTION 


A computer program has been developed for the solution of the subsonic, 
three-dimensional flow over wings with leading-edge vortex separation (ref. 1). The 
program provides capabilities for calculating forces, moments, and detailed surface 
pressures on thin, sharp-edged wings of an arbitrary planform. The wing geometry is 
arbitrary in the sense that leading and trailing edges may be curved or kinked and the 
wing may have arbitrary camber and twist. The computer program includes a recently 
developed potential flow computational technique based on the advanced aerodynamic 
panel method (ref. 2). The numerical method employs an inviscid flow model in which 
the wing and the rolled-up vortex sheets are represented by piecewise continuous 
quadratic doublet sheet distribution. The Kutta condition is imposed along all wing 
edges. An iterative scheme is applied to find the strengths of the doublet distributions 
as well as shape and position of the free vortex sheet spirals satisfying the nonlinear 
boundary conditions of the flow problem. 

The computer program is written in FORTRAN IV for a SCOPE 3.0 or KRONOS 2.1 
operating system of the CDC 6400/6600 computer. The program uses overlay structure 
and eight disk files (including input and output files), and it requires approximately 
120 000 (Octal) central memory words. This program has been designed with the 
primary objective of verifying new concepts and ideas. 

The documentation of the program is divided into two parts: 

Part I: Engineering Document 

Part II: Program Description Document 



The Engineering Document (bound separately) contains a detailed description of the 
theoretical method and, in particular, a thorough discussion of the following items: flow 
model as a nonlinear boundary value problem, geometry definition, numerical method, 
solution procedure, and verification of the method. A user’s guide of the computer 
program is also included in the Engineering Document. 

This volume, the Program Description Document, consists of three sections: 

1: Program logic describing the basic program structure and listing the names of 

overlay programs and all subroutines. It includes descriptions and flowcharts of 
overlay programs, along with a discussion of file usages and common blocks. 

2: Purpose, input and output, and a brief discussion of processing performed by the 

routine for all subroutines. 

3: A complete program listing. 

The Program Description Document is written for the purpose of maintaining an 
experimental-type computer program. 
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PROGRAM LOGIC 


BASIC PROGRAM STRUCTURE 

The computer program consists of one main overlay, four primary overlays, and one 
user library. A description and flowchart of each overlay program are given. 

The flowchart of main overlay program TEA378 illustrates the overall functions the 
program performs. A schematic diagram of basic program structure follows: 



NAMES OF PROGRAMS AND SUBROUTINES 

The names of programs and subroutines used in each overlay and of those routines 
included in the user library are given as follows: 

Main OVERLAY! VORTEX, 0,0) 

Program TEA378 

Subroutines ITFLOW, FUNC, FGCAL, UPDATE, AJGEN, DFGMU, DFGDT 
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Primary OVERLAY(VORTEX,1,0) 

Program INPUT 

Subroutines DWNET, AWNET, GWNET, SWEPTE, SHEGEN 

Primary OVERLAY( VORTEX, 2,0) 

Program AICGEN 

Subroutines EDGEIN, KSORT, TGEOMC, GEOMC, SURFIT, TSING, SING, 
LSQSF, TCNTRL, CONTRL, SURPRO, VINFCC, EIVC, PIVC, 
GCPCAL, GRDIND, PIDENT, CCAL, ECAL, DPIV, FKCAL, 
FMNCAL, FNKCAL, INTCAL, SIDECL 

Primary OVERLAY(VORTEX,3,0) 

Program SOLVER 

Primary OVERLAY(VORTEX,4,0) 

Program OUTPUT 

Subroutines SNGCAL, SINFCC 

User Library IPTRNS, PTRNS, TRNSFR, TRANS, ZERO, CROSS, UVECT, 
Subroutines MMULT, CMAB, LINEQS, TDECOM, BSUBSM, PDSEQS, VIP, VIPA, 
VIPS 

DESCRIPTION AND FLOWCHART OF OVERLAY PROGRAMS 

Main OVERLAY(VORTEX,0,0) 

Program TEA378 

Purpose To call various overlays to perform the following tasks: 

# Reading the input data and setting up geometry definition 

# Generating the AIC matrix using an advanced panel-type method 

# Solving a system of equations with the generated AIC to obtain 
initial doublet distributions 

# Using the routine ITFLOW to find an iterative solution to the 
flow problem with nonlinear boundary conditions 

Subroutines INPUT(OVERLAY-1,0), AICGEN(OVERLAY-2,0), SOLVER 
Called (OVERLAY-3,0), OUTPUT(OVERLAY-4,0), ITFLOW 

Discussion Program TEA378 is the main overlay. It sets disk file numbers and 

options for printing intermediate results. The printing options are for 
checkout purposes. First the program calls INPUT to read input data 
cards and to set up network panel corner points, including an initial 
guess for the shape and position of free sheet. Then AICGEN is called 
to generate velocity components and AIC matrix using a panel-type 
influence coefficients method (see description of program AICGEN). An 
initial guess for doublet distributions is obtained by calling SOLVER 
to solve a system of equations with the generated velocity components 
and AIC matrix. 
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Flowchart of Program TEA378 


( Sets disk 

file numbers J 


c 


Sets options for print- 
ing intermediate results 


J 


CALL OVERLAY (6HVORTEX, 
(To read input data and to set 
up network geometry including 
indices and corner points) 


1,0) 


CALL OVERLAY (6HVORTEX, 2,0) 
(To generate velocity components 
and AIC matrix) 


Sets up files for 
coefficient matrix 
(AIC) and right-hand 
side (velocity 
components) 


CALL OVERLAY (6HVORTEX, 3,0) 
(To obtain initial solution for 
doublet distributions by sol- 
ving system of equations) 








Flowchart 



CALL ITFLOW (X,N,RX, DX, Y ( RY) 
(Uses an iterative procedure to find 
a solution of doublet distributions 
and position of free sheet to satisfy 
the given boundary conditions) 


Program TEA378 (Continued) 






Primary 

Program 

Purpose 


Input 

Output 


Subroutines 

Called 

Discussion 


Primary 

Program 

Purpose 


If the user sets the number of iterations to zero in order to check 
the input data, initial guesses for doublet distributions, and position of 
free sheet, the program will call OUTPUT to display initial doublet 
distributions, positions of free sheet and fed sheet, velocity 
components, A Cp, etc. Otherwise, the program proceeds to call the 
subroutine ITFLOW to find a solution for doublet distributions and the 
position of free sheet to satisfy the nonlinear boundary conditions. 

OVERLAY( VORTEX, 1,0) 

INPUT 

To read and print user input data, calculate freestream velocity, 
calculate all panel corner point coordinates, calculate the initial length 
and angle of inclination of panels in the Free Vortex and Fed Sheet 
networks. 

See Engineering Document — User’s Guide 
Common block 

/DAT3/-AR, NTR, XTR, MSP, YSP, NTC, NLE, YLE, NTE, YTE, MSF 

/FSVEL/-FSV, FSVM, ALPHA, XPITCH, RCHORD 

/INDEX/-NT, NM, NN, NP, NZ, NPA, NZA, NNETT, NPANT, NZMPT 

/MSPNTS/-ZM, ZL 

/SOLN/-ZA 

AWNET, DWNET, GWNET, SHEGEN 

c is set equal to the cosine of the angle of attack in radians, and s is 
set equal to the sine. They form the components of a freestream 
velocity vector whose magnitude is calculated by taking the square 
root of the sum of the squares of c and s. 

The wing panel corner points may be input by the user following a 
"$INPUT WING NETWORK” data card or the program will calculate 
them following a "$DELTA,” "$ARROW,” or "$GOTHIC WING 
PREPROCESSOR” data card. 

Subroutine SHEGEN calculates the Y and Z coordinates of panel 
corner points on the Free Vortex and Fed Sheet networks. The distance 
between adjacent panel corner points on each transverse cut in the 
Free Vortex and Fed Sheet is calculated along with the panel 
inclination angle with respect to the flat wing. 

OVERLAY(VORTEX,2,0) 

AICGEN 

To calculate essential geometry information for each panel and the 
locations of doublets and control points for each network and to 
generate the aerodynamic influence coefficients using an advance 
panel-type method. 
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Flowchart of Program INPUT 
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Flowchart of Program AICGEN 
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Flowchart of Program AICGEN t Continued ) 
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Input 

Output 


Subroutines 

Called 

Discussion 


Primary 

Program 

Purpose 


Common block 

/INDEX/-NT, NM, NN, NP, NZ, NPA, NZA, NNETT, NPANT, NZMPT 
/NITF/-NFUN 

/IPRINT/-IPGEOM, IPSING, IPCNTR, IPEIVC 

Common block 
/CM03/-NPIF, NAIC3, NAIC 
/BDYCS/-AC, ZCC, ZCR, ZDC, IPC, ITC 
/INDEX/-NS, NC, NSA, NCA, NSNGT, NCTRT 
/NINDX/-NEQ, NJC, ITC 

TGEOMC, TSING, TCNTRL, EDGEIN, KSORT, PTRNS, IPTRNS, 
VINFCC, VIP 

The program first calls TGEOMC to provide least squares surface fit 
for each panel and to generate essential geometry information such as 
local coordinates of panel corner points and center, coordinate 
transformations, moments, etc. The subroutines TSING and TCNTRL 
are called to designate the locations of doublets and control points for 
each network according to different network types. The coefficients of 
quadratic doublet distribution for each panel are computed by using 
least squares method. The unit normal vector and the freestream 
velocity normal to the panel surface at each control point are also 
calculated. 

As discussed in the Engineering Document, equation (46), the stream 
surface boundary condition at edge points of networks where the Kutta 
condition has to be satisfied, gives a linear relation between the set of 
doublets (Me) at the edges of the network and the set of all remaining 
doublets (Mr). Hence, doublets Me can be expressed in terms of all 
remaining doublets Mr> and only Mr will have to be treated as the 
explicit unknown parameters in the iterative procedure. For the 
convenience of computation, indices of doublets are rearranged so that 
Me’s precede Mr s - Indices of control points are also rearranged in a 
similar way. 

The components of aerodynamic influence coefficients (AIC) induced at 
each control point, due to doublet distributions of all panels, are 
computed by calling VINFCC. This process is repeated first for the 
control points at the edges of networks and then for all other control 
points. The program provides an option for skipping the last part of 
the computation. Thus, when subroutine ITFLOW in the main overlay 
calls AICGEN to update AIC at every KIT iteration, it sets NFUN=0, 
and the new AIC is generated. Otherwise, NFUN#0 and the 
computation of new AIC is skipped. 

OVERLAY( VORTEX, 3,0) 

SOLVER 

To solve a linear system of equations A*X=B 
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Flowchart of Program SOL VE R 
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Input 

Output 

Subroutines 

Called 

Discussion 


Primary 

Program 

Purpose 


Input 


Output 

Subroutines 

Called 

Discussion 


Common block 

/NEQS/-NE, NR, NMAT, NRHS 

Common block 
/NEQS/-NRHS 

LINEQS 

The program reads out coefficient matrix and right-hand side from two 
separate files and stores them in two different arrays A and B. The 
routine LINEQS is then called to solve the system of equations. If the 
coefficient matrix is not singular, the solution vector is written on the 
file that originally stores the right-hand side. Otherwise, an error 
message "The matrix appears singular” is printed, and execution of the 
computer program is terminated. The program has been set up with 
the consideration that an out-of-core equation solver can replace the 
present in-core one without changing the data structure significantly. 

OVERLAY (VORTEX, 4,0) 

OUTPUT 

To print the program results, including: circulation along terminated 
edge of the fed sheet network; circulation along the wing trailing edge; 
X, Y and Z coordinates of panel center, velocity on upper and lower 
surfaces, and Acp for each panel in the wing and free vortex networks; 
upper and lower Cp and area for each panel in the wing network; 
normal force coefficient; pitching moment coefficient; pitch axis x 
value; root chord length; and total wing area. 

Common Block 

/BDYCS/-ZC 

/CM03/-NPIF, NAIC3 

/FSVEL/-FSV,XPITCH 

/INDEX/-NM,NPA,NZA 

/MSPNTS/-ZM 

/NFAJ/-NEQ,NF,NG 

/PANDQ/-AR,ART,C 

/SOLN/-S 

See Purpose 

MMULT,PTRNS,SNGCAL,UVECT,VIP 


The Fed Sheet terminated edge points are calculated as the midpoints 
between each pair of outboard Fed Sheet panel corner points. SNGCAL 
is called to calculate the circulation at each edge point. 

The wing trailing-edge points are calculated as the midpoints between 
each pair of forward wake panel corner points. SNGCAL is again 
called to calculate the circulation at each point. 
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Flowchart of Program OUTPUT 
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The total velocity is calculated by multiplying the AIC matrix 
(DVDFS) by the vector, consisting of values S of doublet parameters 
and adding the components of the freestream velocity vector. 

SNGCAL is called to calculate the value and 1st, 2nd derivatives of 
doublet strength at the panel center points of the wing and free sheet 
networks. The components of sheet vorticity (first derivatives of 
doublet strength) are transformed into the global panel system to 
define V/x(V ELFS). 

Upper and lower velocity is calculated by adding to and subtracting 
from the total velocity components, one-half of the V/x components. 

Acp is calculated by multiplying two times the vector inner product of 
V/x and the total velocity vector. 

Cp upper and lower for the wing network are calculated by the 
equation: 


(VSQ ± HDCP + 0.25*GMUSQ) (1) 

where VSQ is the velocity vector inner product, GMUSQ is the V/x 
vector inner product, and HDCP is one-half of Acp. 

The final calculations performed are for a summation table for the 
wing network consisting of normal force coefficient (c^), pitching 
moment coefficient (c m ), pitch axis X value (XPITCH), root chord 
length (RCHORD) and total wing area (SW). The product (CNF) of the 
normal vector, A Cp, and wing panel area is used to calculate c^ 
andc m . 

Cj^ is defined as two times the sum of CNF at each wing panel divided 
by the total wing area. 

c m is defined as two times the sum of CNF at each wing panel times 
the X of the panel center minus XPITCH, divided by RCHORD times 
total wing area. 

XPITCH is the X value of the pitch axis input by the user. 

RCHORD is defined as the X value where the trailing edge breaks 
away from the planform centerline minus the X value of the first 
transverse cut. 

Total wing area is simply the sum of the individual wing panel areas 
contained in array C in common block PANDQ. 
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FILE USAGE 


There are eight disk files used in the computer program. The files are passed through 
common block /CM03/. Their disk numbers are assigned in program TEA378 (Main 
Overlay). Files NTSIN and NTSOUT are the standard input and output files. The 
following illustration gives where and how the other six files are used. 


File 

Where 

Usage 

NTGD 

TEA378 

Writing on components of freestream velocity at 
control points; reading out initial values of doublet 
parameters 


ITFLOW 

Writing on residuals; reading out corrections 


DFGMU 

Writing on 3G/3p e and 3G/3p r 


DFGDT 

Writing on 3G/30 


AICGEN 

Transferring panel information 

NPIF 

FGCAL 

Reading out panel information 


DFGMU 

Reading out panel information 


DFGDT 

Reading out panel information 


AICGEN 

Storing panel information 


VINFCC 

Reading out panel information 


OUTPUT 

Reading out panel information 

NAIC3 

FGCAL 

Reading out components of influence coefficient 


DFGMU 

Reading out components of influence coefficient 


AICGEN 

Storing components of influence coefficient 


OUTPUT 

Reading out components of influence coefficient 

NAIC 

FGCAL 

Reading out rows of AIC matrix 


AICGEN 

Storing rows of AIC matrix 

NJAC 

ITFLOW 

Reading out rows of Jacobian 


DFGMU 

Writing on 3F/3p e and 3F/3p r 


DFGDT 

Storing rows of Jacobian 

NSCR 

ITFLOW 

Writing on rows of updated Jacobian 


DFGMU 

Writing on partial derivatives with respect to 
doublet parameters 


DFGDT 

Reading out partial derivatives with respect to 
doublet parameters 
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COMMON BLOCK DEFINITION 


Variables of the more essential common blocks shared by main and primary overlays 
and some subroutines are defined below. 


Common 

Block 

Variables 

Description 

Where Set 

ADR 

RTD 

Number of degrees in 1 rad 

TEA378 


DTR 

Number of radians in 1 deg 


BDYCS 

ZC 

Array of X,Y,Z coordinates of control 
points 

TCNTRL 


zee 

Array of normal vectors at control 
points on the panel surface 



ZCR 

Array of components of freestream 
velocity normal to the panel surface 
at control points 



ZDC 

Array of perturbation distances for 
control points at edges of networks 



IPC 

Array of panel indices for control 
points 



ITC 

Array of codes (= 1 for control points 
at edges of networks; =0 otherwise) 


CM03 


See file usage 

TEA378 

DAT3 

AR 

Aspect ratio 

INPUT 


NTR 

Number of transverse cuts 



XTR 

Array of transverse cut x values 



MSP 

Number of spanwise wing percent 
values 



YSP 

Array of spanwise wing percent 
values 



NTC 

Number of transverse cuts 
intersecting root chord 



NLE 

Number of points defining wing 
leading edge 



YLE 

Array of Y coordinates of 
leading-edge points 
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Common 

Block 

Variables 

Description 

Where Set 


NTE 

Number of wing trailing-edge, 
transverse-cut intersections 



YTE 

Array of Y coordinates of points 
defined by NTE 



MFS 

Number of spanwise cuts in the free 
vortex network 


EEQS 

EMUE 

Array of 3E/3^ e 

FGCAL 


EMU 

Array of 3E/3^ r 

Array of (SE/S^g)' 1 (3E/3^ r ) 

DFGMU 


IPR 

Array of indices of row pivoting for 
equation solver 

FGCAL 

FLATP 

NFLTP 

=1 for flat panel; =0 otherwise 

INPUT 

FSVEL 

FSV 

Freestream velocity vector 

INPUT 


FSVM 

Freestream velocity magnitude 



ALPHA 

Wing angle of attack in radians 



XPITCH 

X value of pitch axis 



RCHORD 

Length of root chord 


ICONST 

PI 

IT 

AICGEN 


PI2 

2 IT 



PI4I 

1/4 IT 


INDEX 

NT 

Array containing network type 
indices 2, 4,6, 5, 7 

INPUT 


NM 

Array containing the number of 
spanwise panel points in each 
network 



NN 

Array containing the number of 
transverse cuts in each network 



NP 

Array containing the number of 
panels in each network 



NS 

Array containing the number of 
singularity parameters in each 
network 

SING 


NC 

Array containing the number of 
control points in each network 

CONTRL 


NZ 

Array containing the number of panel 
points in each network 
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Common 

Block Variables 

NPA 

NSA 

NCA 

NZA 

NNETT 

NPANT 

NSNGT 

NCTRT 

NZMPT 

INTQ H 

HZ 
IH . 

MXQ 

MXK 

IPRINT IPNPUT 
IPGEOM 

IPSING 

IPCNTR 


Description 


Array containing cumulative sum of 
array NP 

Array containing cumulative sum of 
array NS 

Array containing cumulative sum of 
array NC 

Array containing cumulative sum of 
array NZ 

Number of networks 
Number of total panels 

Number of total singularity 
parameters 

Number of total control points 

Number of total panel corner points 
in all networks 

Array of H integrals 
Z distance of field point above panel 

Indicates necessity of using special 
expansion when field point is near 
panel surface 

Maximum value of m+n for H 
integrals required to compute 
influence coefficients 

Maximum value of k for H integrals 
required to compute influence 
coefficients 

Controls printout of intermediate 
results from program INPUT in 
overlay (1,0) 

Controls printout of intermediate 
results from subroutines GEOMC and 
SURFIT in overlay (2,0) 

Controls printout of intermediate 
results from subroutine SING in 
overlay (2,0) 

Controls printout of intermediate 
results from subroutine CONTRL in 
overlay (2,0) 


Where Set 

TSING 

TCNTRL 

TSING 

TCNTRL 

INTCAL 

DPIV 

TEA378 
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Common 

Block 


Variables Description 


Where Set 



IPEIVC 

Controls printout of intermediate 
results from subroutine EIVC in 
overlay (2,0) 


IPOUTP 

Controls printout of intermediate 
results from program OUTPUT in 
overlay (4,0) 

LSQSFC 

ZK 

X,Y,Z coordinates of corner points 
used in least squares fit 


WTK 

Weights used in least squares fit 


AK 

Generalized inverse from least 
squares fit 


NO 

= 2 for quadratic fit (6 terms) 
<2 for linear fit (3 terms) 


NPK 

Number of data points used in least 
squares fit 

MSPNTS 

ZM 

Array containing panel corner point 
X,Y,Z coordinates 


ZL 

Array containing panel lengths along 
transverse cuts 

NEQS 

NE 

Number of equations to be solved 


NR 

Number of right-hand sides 


NMAT 

Name of file storing the coefficient 
matrix 


NRHS 

Name of file storing right-hand side 
or solution vector 

NFAJ 

NEQ 

Number of equations corresponding to 
control points at edges of networks 


NF 

Number of equations corresponding to 
all other control points (excluding 
those at edges) 


NG 

Number of equations corresponding to 
number of panels of the free sheet 
network 

NINDX 

NEQ 

Number of equations corresponding to 
control points at edges of networks 


NJC 

NJC(j) gives new index for control 
point j 


SURFIT.SING 

LSQSF 

SURFIT.SING 

INPUT 

TEA378.ITFLOW 

AICGEN 

EDGEIN 
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Common 

Block 


Variables Description 


Where Set 


NITF 


PANDQ 


IJC 

IJC(k) gives the control point which 
has new index k 


NFUN 

Number of functions called at every 
KIT iteration 

ITFLOW 

JT 

Iteration number 


ITMX 

Maximum number of iterations 

INPUT 

KIT 

Number of iterations to generate new 
AIC 

ITFLOW 

ITPRIN 

Printing output occurs at every 
ITPRIN iteration 

INPUT 

CP 

X,Y,Z coordinates of panel corner 
points 

GEOMC 

PC 

Average X,Y,Z coordinates of four 
corner points 

SURFIT 

RO 

X,Y,Z coordinates of origin of local 
panel coordinate system 


AR 

Rotation matrix for transforming 
from global X,Y,Z coordinates to local 
panel £ ,r?, f coordinates 


ART 

Transposition of AR 

GEOMC 

P 

t,T 7 coordi nates of panel corner points 

SURFIT 

A 

Panel principal curvature in £ 
direction 


B 

Panel principal curvature in 77 
direction 


DIAM 

Length of longest diagonal of panel 

GEOMC 

C 

Array of ({,77) moments 

CCAL 

AST 

Matrix defining dependence of 
coefficients of quadratic doublet 
distribution on free parameters 

SING 

IIS 

Array containing indices of free 
parameters on which panel doublet 
coefficients depend 


INS 

Number of free singularity 
parameters determining coefficients 
of panel quadratic doublet 
distribution 
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Common 

Block Variables Description 


ITS 

NPDQ 

PINDX KP 


KQ 

NPWR 

NPRD 


Panel singularity type 

Total number of panel-defining 
quantities in PANDQ common block, 
not used in this program 

Index for keeping track of the 
position of record (panel information) 
on disk to be written 

Index for keeping track of the 
position of record (panel information) 
on disk to be read 

Disk file on which panel information 
is to be written 

Disk file from which panel 
information is to be read 


PIVINT XX 

PP 

AA 

BB 

DDIAM 

CC 

DVDV 

NTST 

NCF 

SIDEQ QSIDE 

SKAICl AKSl 

AETl 
AKS2 


Local panel coordinates of control 
point 

Local coordinates of panel corner 
points 

Coefficients of the quadratic surface 
fit ofithe panel 

Maximum diagonal of the panel 
Moments for the panel 
Integrals from routine DPIV 

Number of coefficients in panel 
doublet distribution 

Not used in this program 

Collection of geometric quantities 
describing relationship of field point 
to panel side 

Coordinate of field point relative to 
panel corner point expressed in local 
system 

Coordinate of field point relative to 
panel corner point expressed in local 
system 

Coordinate of field point relative to 
panel corner point expressed in local 
system 


Where Set 
Not set 

Wherever routines 
PTRNS and 
IPTRNS are called 


PIVC 


Not set 
SIDECL 

INTCAL 
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Common 

Block 


Variables Description 


Where Set 


SKAIC2 


AET2 

Coordinate of field point relative to 
panel corner point expressed in local 
system 


DRM 

Length of panel edge 


ELI 

Distance from panel corner point to 
projection of field point on panel edge 
line 


EL2 

Distance from panel corner point to 
projection of field point on panel edge 
line 


ELM 

Minimum value of distance from 
panel edge to projection of field point 
on panel edge line 


ANK 

Component of unit normal to panel 
edge 


ANE 

Component of unit normal to panel 
edge 


A 

Distance from projection of field point 
on panel plane to panel edge line 


AA 

Square of A 


GG 

Square of distance from field point to 
panel edge line 


SI 

Distance from field point to end point 
of a panel side 


S2 

Distance from field point to end point 
of a panel side 


S1I 

Inverse of Si 


S2I 

Inverse of S2 


HM 

Magnitude of HZ 


HH 

Square of HZ 


GAK 

Accumulates A times FK over four 
panel sides 

FKCAL 

GKNK 

Accumulates ANK times FNK over 
four panel sides 

FNKCAL 

GENK 

Accumulates ANE times FNK over 
four panel sides 


GKMN 

Accumulates ANK times FMN over 
four panel sides 

FMNCAL 
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Common 

Block 


SKAICI 


SKAICL 


Variables 

Description 

Where Set 

GEMN 

Accumulates ANE times FMN over 
four panel sides 


GAMN 

Accumulates A times FMN over four 
panel sides 


Hill 

Accumulates H( 1,1,1) over four panel 
sides 

FKCAL 

FK 

F integrals for M=1 and N=1 


FNK 

F integrals for M=1 

FNKCAL 

FMN 

F integrals for K=1 

FMNCAL 

E 

E functions used for computation of F 
integrals 

ECAL 

MXFK 

Maximum value of K for F integrals 

INTCAL 

MXFKN 

Maximum value of K for F integrals 
when field point is near panel edge 
and special expansion is required 

FKCAL 

MXFNK 

Not used in this program 

Not set 

MXKM2 

Used as upper limit for certain K 
loops 

INTCAL 

MXKM4 

Used as upper limit for certain K 
loops 


MXQM1 

Used as upper limit for certain M or 
N loops 


LMXQ2 

Logical variable used to circumvent 
unnecessary calculations 

INTCAL 

LMXQ3 

Logical variable used to circumvent 
unnecessary calculations 


LMXQ4 

Logical variable used to circumvent 
unnecessary calculations 


LMXK3 

Logical variable used to circumvent 
unnecessary calculations 


LMXK5 

Logical variable used to circumvent 
unnecessary calculations 


LMKEX 

Logical variable determining 
necessity of using special expansion 
for field point near panel surface 
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Common 

Block 

Variables 

Description 

Where Set 

SKRCHl 

ZA 

Array of network points serving as 
control points or locations of free 
singularity parameters 

GCPCAL 


1A 

Index array which counts 
nonidentical points in ZA 

GRDIND 

SOLN 

S 

Array of values of doublet parameters 

TEA378.ITFLOW 


ZA 

Array containing panel inclination 
angles 

INPUT 

SYMM 

NSYMM 

= 1 for axisymmetric 
= 0 otherwise 

INPUT 
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DESCRIPTION OF SUBROUTINES 


The subroutines 

Subroutine 

Purpose 

Input 


Output 

Subroutines 

Called 

Discussion 


Subroutine 

Purpose 

Input 

Output 

Subroutines 

Called 

Discussion 


are arranged in alphabetical order. 

AJGEN(X,N) 

To obtain the analytic Jacobian for perturbation variables 

(doublet parameters excluding those at edges and angles) assuming 

D(AIC)/D(THETA)=0 

Calling sequence 

X — Array of values for the variables 
N — Number of variables 

Common block 
/INDEX/— NM, NN, NZ 
/MSPNTS/ — ZM 
/ADR/ — DTR 

Common block 
/SQLN/ — S, ZA 

DFGMU, DFGDT 


The routine stores values of doublet parameters (excluding those at 
edges) and angles in array S and ZA, respectively. Routines are called 
to generate the partial derivatives of functions F and G with respect to 
doublet parameters MU, excluding those at edges (DFGMU) and angles 
THETA (DFGDT). 


AWNET 

To calculate the coordinates of all panel corner points in an arrow 
wing planform configuration 

Common block 

/DAT3/ — AR, NTR, XTR, MSP, YSP, NTC 

Common block 
/DAT3/ — YLE, NTE 
/MSPNTS/— ZM 

SWEPTE 

The Y coordinates of the panel corner points at the intersection of the 
leading edge and transverse cuts are computed by multiplying the X 
value of the transverse cut by one-fourth the aspect ratio. 

The Y coordinates of the panel corner points between the leading edge 
and root chord on the transverse cuts are computed by multiplying the 
Y coordinate at the leading edge by the array of percent values YSP. 
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Subroutine SWEPTE is called to calculate the Y coordinates of all 
panel points aft of the root chord. 

The X coordinates of the panel corner points are the X values of the 
transverse cuts input by the user. All Z coordinates are set to zero. 


Subroutine 

BSUBSM(A,NR,N,IPR,B,M) 

Purpose 

To perform back substitutions using the factorization obtained from a 
decomposition routine and find the solution for a system of equations 

Input 

Calling sequence 

A — The lower triangle of the array consists of a lower triangular 
matrix L and the upper triangle consists of an upper triangular 
matrix U. They are obtained from a decomposition routine such 
as TDECOM 

NR — Maximum row dimension of arrays A and B 

N — Order of the coefficient matrix 

IPR — Array consists of numbers of pivotal row, as derived from the 
subroutine TDECOM 

B — Array consists of M right-hand sides of the linear system 

M — Number of right-hand sides 

Output 

Calling sequence 
B — Solution vectors 

Subroutines 

VIPS 

Called 


Discussion 

The routine first uses pivotal information given in the array IPR to 
exchange elements of right-hand sides. It then performs forward 
substitution by solving the lower triangular system of equations LY=B 
and backward substitution by solving the upper triangular system of 
equations UX=Y. X is the desired solution of the given system of 
equations. 

The routine is a modified version of a routine in the subroutine library 
of the Boeing Computer Services company. 

Subroutine 

CCAL(P,C) 

Purpose 

To calculate for each panel the quadrilateral moment integrals used in 
the computation of the source and doublet far-field velocity influence 
coefficients. (See sec. B.4, app. B, of the Engineering Document.) 

Input 

Calling sequence 

P — Coordinates of four corner points of quadrilateral 

Output 

Calling sequence 
C — Array of moment integrals 

Subroutines 

ECAL, ZERO 
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Called 

Discussion 


Subroutine 

Purpose 

Input 


Output 

Subroutines- 

Called 

Discussion 

Subroutine 

Purpose 

Input 


Output 


The routine computes the quadrilateral moment integrals 
C(M,N)=I(SIGMA, KSE**(M-1)*ETA**(N-1), DKSE*DETA) for M=l, 
MXQ and N=l, MXQ-MVL. A description of the calculations performed 
is contained in section B.4 of appendix B of the Engineering Document. 
The relevant equations are (B-93) through (B-102). The relevant 
procedure is procedure 6. The code closely follows the development and 
notation of this portion of appendix B. 


CMAB(A,B,R,NRA,NCA,NCB ) 

To multiply two matrices whose elements are stored compactly by row 
(compass) 

Calling sequence 

A — Location of first matrix 

B — Location of second matrix 

R — Location of resultant matrix 

NRC — Number of rows in first matrix 

NCA — Number of columns in first matrix 

NCB— Number of columns in second matrix 

Calling sequence 
R — Resultant matrix 

None 

Performs the matrix operation (R)=(B)(A). 


CONTRL(NT,NM,NN,NC,NPA,ZM,ZC,ZCC,ZCR,ZDC,IPC,ITC) 
To compute control point defining quantities for each network 

Calling sequence 
NT — Network type 

NM — Number of spanwise cuts in the network 
NN — Number of transverse cuts in the network 
NPA — Total number of panels in all previous networks 
ZM — Coordinates of corner points in the network 

Common block 
/IPRINT/— IPCNTR 
/FSVEL/ — FSV 
/PANDQ/— PC 

Calling sequence 

NC — Number of control points on the network 
ZC — Coordinates of control points on the network 
ZCC — Surface normal vector at control points 
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Subroutines 

Called 

Discussion 


Subroutine 

Purpose 

Input 

Output 

Subroutines 

Called 

Discussion 


Subroutine 

Purpose 

Input 


ZCR — Normal components of freestream velocity 
ZDC — Relocation distance of control point 

IPC — Sequence number of panel to which control point belongs 
ITC — Network edge control point indicator 

GCPCAL, GRDIND, PTRNS, SURPRO, MMULT 


The routine calculates quantities associated with the control points 
and boundary conditions of the problem. Separate computations are 
performed for each network type. First, the control points (points at 
which the boundary conditions are applied) are located. This is done by 
averaging certain combinations of corner points and then projecting 
the resultant points onto the panel surfaces. Those control points 
located bn a network edge are withdrawn slightly from the edge and 
not projected onto their panel surfaces to avoid numerical difficulty 
later. The control points are ordered and indexed along with auxiliary 
quantities which are computed as well. Such quantities include the 
panel normal at the control point, the component of freestream velocity 
in this direction (for use in applying the boundary conditions), and the 
distances the edge control points are withdrawn. 


CROSS(A,B,C) 

To calculate the cross product of two vectors 

Calling sequence 
A — First vector 
B — Second vector 

Calling sequence 
C — Resultant vector 

None 

CROSS performs the following calculations: 
C(1)=(A(2)*B(3))-(A(3)*B(2)) 
C(2)=(A(3)*B(1))-(A(1)*B(3)) 
C(3)=(A(1)*B(2))-(A(2)*B(1)) 


DFGDT(ZM,NM,NN ) 

To calculate partial derivatives of functions F and G with respect to 
panel inclination angles of free sheet, assuming D(AIC)/D(THETA)=0 

Calling sequence 

ZM — Coordinates of corner points of free sheet network 
NM — Number of spanwise cuts of network 
NN — Number of transverse cuts of network 
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Output 

Subroutines 

Called 

Discussion 


Common block 
/CM03/ — NSCR 
/BDYCS/ — ZC 
/FSVEL/ — FSV 
/NFAJ/ — NEQ, NF, NG 
/ADR/ — DTK 

Common block 
/CM03/ — NJAC 

PTRNS, CROSS, UVECT, VIP, UNIPAN, MMULT 


A detail discussion of the formula used in the computation is given in 
the Engineering Document (see app. C, geometry update coefficients). 
The routine first finds a normal vector N for the panel. It then 
computes partial derivatives of N with respect to angle THETA and 
forms partial derivatives of N*V and of pressure jump with respect to 
THETA. Finally, it stores all partial derivatives in proper position of 
the Jacobian. 


Subroutine 

Purpose 

Input 


Output 

Subroutines 

Called 

Discussion 


DFGMU 

To calculate partial derivatives of functions F and G with respect to 
doublet parameters (excluding those at edges) 

Common block 
/CM03/ — NPIF, NAIC3 
/BDYCS/ — ZC 
/INDEX/— NSNGT 
/FSVEL/— FSV 
/NFAJ/— NEQ, NF, NG 
/SOLN/— S 

/EEQS/ — EMUE, EMU, IPR 

Common block 
/CM03/— NSCR 

BSUBSM, PTRNS, MMULT, UNIPAN, VIPS 

The formula and notation used here are discussed in detail in the 
Engineering Document (see app. D, doublet strength update 
coefficients). The routine reads in DE/DMUE and DE/DMU and 
calculates (DE/DMUE)(-1)*(DE/DMU), where E is the function 
consisting of only those equations corresponding to control points at 
edges. Then, it obtains partial derivatives of N*V on wing and on free 
sheet with respect to doublet parameters. Partial derivatives of 
pressure jump V*GRAD(MU) with respect to doublet parameter are 
also calculated. Finally, partial derivatives with respect to doublet 
parameters excluding those at edges are formed. 
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Subroutine 

Purpose 

Input 


Output 

Subroutines 

Called 

Discussion 


DPIV 

To calculate the velocity influence coefficients induced at a field point 
by a doublet panel 

Common block 

/ICONST/ — PI2, PHI 

/PIVINT/— X, P, A, B, DIAM, C, NTST 

Common block 
/PIVINT/— DV 

INTCAL, ZERO 

The routine computes the doublet panel velocity influence coefficients 
at a specified field point. A description of the method and calculations 
performed is contained in appendix B of the Engineering Document. If 
the field point is sufficiently distant from the panel, a far-field 
approximation is employed. The approximation and computational 
method is presented in section B.4 of appendix B and the related code 
comprises the part of DPIV between statement 120 and statement 500. 
The loop 450 contains the bulk of the calculations, and its purpose is to 
compute the J vectors of equation (B-91). For this calculation the 
terms on the right side of equation (B-91) have been expanded; hence, 
the code does not directly correlate with this formula. Another 
evaluation procedure is employed when the field point is near the 
panel. A description of this procedure is presented in sections B.2 and 
B.3 of appendix B. The related code comprises the part of DPIV 
between statements 500 and 900. The loop 750 calculates the vector J, 
defined by equation (B-34), with the H integrals computed by the 
routine INTCAL. The loop 800 transforms the influence coefficients 
relative to the expansion of doublet strength about the projection of 
the field point to coefficients relative to the expansion of doublet 
strength about the origin. 


Subroutine 

Purpose 

Input 

Output 


DWNET 

To calculate the coordinates of all panel corner points in a delta wing 
planform configuration 

Common block 

/DAT3/ — AR, NTR, XTR, MSP 

Common block 
/DAT3/—YLE 
/MSPNTS/ — ZM 
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Subroutines 

Called 

Discussion 


Subroutine 

Purpose 

Input 


Output 

Subroutines 

Called 

Discussion 


Subroutine 

Purpose 

Input 

Output 

Subroutines 

Called 

Discussion 


None 

The Y coordinates of panel corner points at the intersection of the 
leading edge and the transverse cuts are computed by multiplying the 
X value of the transverse cut by one-fourth the aspect ratio. 

The Y coordinates of the panel corner points between the leading edge 
and root chord on the transverse cuts are computed by multiplying the 
Y coordinate at the leading edge by the array of percent values YSP. 

The X coordinates of the panel corner points are the X values of the 
transverse cuts input by the user. All Z coordinates are set to zero. 


ECAL(X1,X2,A1,A2,E,N ') 

To evaluate E(I) = A2*X2**(I-1) - A1«X1**(I-1) ; I=1,N. (See eq. 
(B-59), app. B, of the Engineering Document.) 

Calling sequence 
XI — (see Purpose) 

X2 — (see Purpose) 

A1 — (see Purpose) 

A2 — (see Purpose) 

N — (see Purpose) 

Calling sequence 
E — (see Purpose) 

None 

The routine calculates the quantities: 

E(I)=A2*X2**(I-1)-A1*X1**(I-1) for 1*1, N using the recursion formula 
E(I)=(X1 -f X2)*E(I-l)-Xl*X2*E(I-2) and the initial conditions 
E(1)=A2-A1 and E(2)=A2*X2-A1*X1. 

EDGEIN 

To provide new indices for the control points and doublets so that the 
corresponding equations (downwash condition) and doublets at edges of 
network will precede all the others 

Common block 
/BDYCS/ — ITC 
/INDEX/ — NCTRT 

Common block 
/NINDX/ — NEQ, NJC, IJC 

None 

The routine obtains the number of equations corresponding to control 
points at edges. Then it assigns indices according to whether control 
points are at edge or interior. 


32 



Subroutine 

Purpose 

Input 


Output 


Subroutines 

Called 

Discussion 


EIVC(ZC,ZNC,ZDC,IPINF) 

To calculate the velocity induced by a doublet panel on a network edge 
control point 

Calling sequence 

ZC — Coordinates of control point 

ZNC — Unit normal to surface at control point 

ZDC — Distance from control point to panel edge 

Common Block 

/IPRINT/— IPEIVC 

/ZIP/— IPZ, IP, JCZ 

/PANDQ/— CP, PC, RO, AR, P, DIAM 

/SYMM/— NSYMM 

Calling sequence 

IPINF — Indicates whether panel is close enough to control point to 
induce a substantial downwash 

Common block 
/PIVM/— DVDS 

ZERO, CROSS, UNIPAN 

The routine calculates the velocity induced by a doublet panel (and its 
image if configuration is symmetrical) on a network edge control point. 
The influence is computed by accumulating the influence of each panel 
edge. The influence of a panel edge is ignored unless a point on the 
edge is within a small sphere around the control point. In this case, 
the influence, resulting from both the doublet strength and its 
derivative perpendicular to the edge (evaluated at that edge point), is 
computed. The resultant velocity is then distributed among the 
coefficients of the doublet distribution on the panel. 


Subroutine 

Purpose 


Input 


Output 


FGCAL(FVZ,GVZ) 

To solve for doublet parameters at edges and to calculate functions F 
and G 

Common Block ... .. w . 

/CM03/ — NPIF, NAIC3, NAIC 

/BDYCS/— ZC, ZCR 

/FSVEL/ — FSV 

/NFAJ/ — NEQ, NF, NG 

/SOLN/— S 

Calling sequence 
FVZ— Values of F 
GVZ— Values of G 

Common block 

/EEQS/ — EMUE, EMU, IPR 
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Subroutines 

Called 

Discussion 


Subroutine 

Purpose 


Input 


Output 

Subroutines 

Called 

Discussion 


VIPS, LINEQS, PTRNS, MMULT, VIP, UNIPAN 

The routine reads rows of AIC matrix to form coefficients of function 
E. The solution for doublet parameters (MUE) at edges are found by 
using function E and given values of all other doublet parameters 
(MU). Since E is a function of doublet parameters only, DE/DMUE and 
DE/DMU are simply the coefficients of E. If the matrix DE/DMUE is 
singular, an error message will be printed and the execution of the 
computer program will be terminated. Components of influence 
coefficients are read in and multiplied by values of doublet parameters 
to form perturbation velocity. The latter is added to freestream 
velocity to become the average velocity vector V. The DOT product 
N*V is then calculated for every interior control point on wing 
(forming part of function F) and on free sheet (forming function G). 

The jump in pressure coefficients V*GRAD(MU) (see Engineering 
Document) on free sheet is also calculated (forming the other part of 
function F). 


FKCAL 

To calculate certain F integrals used to compute the H integrals 
involved in the formulas for the source and doublet panel induced 
velocity influence coefficients. (See sec. B.3 of app. B of the 
Engineering Document.) 

Common block 
/SKAICL/ — LMKEX 

/SKAIC1/— ELI, EL2, ELM, A, AA, GG, SI, S2, SlI, S2I, HM 
/SKAICI/ — MXFK 

Common block 
/SKAICI/— MXFKN 
SKAIC2/ — GAK,H1 1 1 

ECAL 

The routine computes the integrals F (1,1,K) for K=1,MXFK where 
F(l,l,K)=I(L,l./RHO**K,DL). A description of the calculations 
performed is contained in section B.3 of appendix B of the Engineering 
Document. The relevant equations are (B-60), (B-61), (B-68), and 
(B-69). The relevant procedures are 4 and 5. The routine also computes 
the arctangent terms of step 1 (eq. (B-41) of procedure 1. The code 
closely follows the development and notation of section B.3. Note that 
FNK(N,K)=F(1,N,K). 
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FMNCAL 


Subroutine 

Purpose 


Input 


Output 

Subroutines 

Called 

Discussion 


To calculate certain F integrals used to compute the H integrals 
involved in the formulas for the source and doublet panel induced 
velocity influence coefficients, (see sec. B.3 of app. B of the 
Engineering Document.) 

Common block 
/INTQ/— MXQ 

/SKAICL/— LMXQ2, LMXQ3 

/SKAICl/ — AKS1, AET1, AKS2, AET2, ANK, ANE, A, AA. Si, S2, HH 
Common block 

/SKAIC2/ — GKMN, GEMN, GAMN 
ECAL 

The routine computes the integrals F(M,N,1) for N=T,MXQ and 
M=1,MXQ-N+1 where F(M,N,1)=I(L,KSE**(M- 1 )*ETA**(N-1 )/RHO, 
DL). A description of the calculations performed is contained in section 
B.3 of appendix B of the Engineering Document. The relevant 
equations are (B-62), (B-63), (B-64), and (B-65). The relevant 
procedures are 4 and 5. The code closely follows the development and 
notation of section B.3. Note that FMN(M,N)~F(M,N,1). 


Subroutine 

Purpose 


Input 


Output 

Subroutines 

Called 

Discussion 


FNKCAL 

To calculate certain F integrals used to compute the H integrals 
involved in the formulas for the source and doublet panel induced 
velocity influence coefficients, (see sec. B.3 of app. B of the 
Engineering Document.) 

Common block 

/SKAICL/— LMXQ3, LMXQ4, LMXK5 
/SKAICl/— ANK, ANE, AA, SlI, S2I, HH 
/SKAICl/— MXKM2, MXQM1 

Common block 
/SKAIC2/— GKNK, GENK 

ECAL 

The routine computes the integrals F(1,N,K) for N=2,MXQ and 
K=3,MXK-2,2 where 

F( l,N,K)=I(L,ETA**(N-l)/RHO**K,DL). A description of the 
calculations performed is contained in section B.3 of appendix B of the 
Engineering Document. The relevant equations are (B-66) and (B-67). 
The relevant procedures are procedures 4 and 5. The code closely 
follows the development and notation of section B.3. Note that 
FNK(N,K)=F(1,N,K). 
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Subroutine 


FUNC(X,N,RX) 


Purpose 

Input 


Output 

Subroutines 

Called 

Discussion 


Subroutine 

Purpose 

Input 


Output 

Subroutines 

Called 

Discussion 


To evaluate function F (N*V on wing and V'GRAD(MU) on free sheet) 
and G (N«V on free sheet) 

Calling sequence 

X — Array of values for the variables 
N — Number of variables 

Common block 
/NFAJ/ — NEG, NF, NG 
/NITF/ — NFUN 
/SOLN/— ZA 
/ADR/ — DTR 

Calling sequence 

RA — Array of values of functions 

UPDATE, AICGEN( OVERLAY-2,0), FGCAL 


The routine stores values of doublet parameters (excluding those at 
edge) and angles in arrays S and ZA, respectively. It uses new angles 
to update the corner points of free sheet, fed sheet, and part of the 
wake network. AICGEN(OVERLAY-2,0) is then called to designate 
locations of doublets and control points and to generate velocity 
components and AIC matrix using the updated corner points. If 
perturbation in angle is not significant, UPDATE and A1CGEN are 
skipped. Finally, the routine calls FGCAL to calculate values of 
functions F and G. 


GCPCAL(NM,NN,NM1,NN1,ZM,ZA) 

To construct an NM+1 by NN" 1 grid of points from corner point data 
Calling sequence 

NM — Number of corner points in a row 
NN — Number of corner points in a column 
NM1 — Number of grid points in a row (NM+1) 

NN1 — Number of grid points in a column (NN+1) 

ZM — Coordinates of corner points 

Calling sequence 

ZA — Coordinates of grid points 

None 

The routine computes an NM+1 by NN+1 grid of points derived from 
corner point data. The points in the grid consist of the average of each 
set of four adjacent corner points, the average of each set of two 
adjacent edge corner points, and the four extreme corner points. These 
points are obtained by computing approximate averages of the corner 
points. 
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Subroutine 

Purpose 

Input 


Output 

Subroutines 

Called 

Discussion 


Subroutine 

Purpose 

Input 


Output 


Subroutines 

Called 

Discussion 


GEQMC(NT,NM,NN,NPA,ZM> 

To calculate geometric defining quantities for each panel in a network 

Calling sequence 
NT — Network type 

NM — Number of spanwise cuts in network 

NN — Number of transverse cuts in network 

NPA — Total number of panels in all previous networks 

ZM — Coordinates of corner points in the network 

Common block 
/IPRINT/— IPGEOM 


Common block 

/PANDQ/— CP,PC,RO,AR,ART,P,A,B,DIAM,C 
SURFIT, CCAL, IPTRNS 


The routine calculates and stores geometric defining quantities for 
each panel of a network. First, the four grid points defining the panel 
corner points are found. Together with adjacent grid points, these 
corner points are fed into SURFIT, which defines the actual panel 
surface and the local panel coordinate system. Then CCAL is called to 
calculate panel moments. Finally, all the panel-defining quantities are 
stored on a file. 

GRDIND(NM,NN,Z,I,IS) 

To order nonidentical points of an NM by NN grid of points via an 
index array 
Calling sequence 

NM — Number of grid points in a row 
NN — Number of grid points in a column 
Z — Coordinates of grid points 

Calling sequence 

I — Index array containing sequence number of each grid point 
IS — Total number of nonidentical points in a grid 

PIDENT 

The routine sequences an NM by NN grid of points. The sequencing 
proceeds in the order ((M-1,NM),N = 1,NN), where (M,N) is the point in 
row M and column N. Any point identical with the point in the same 
row and previous column or with the point in the same column and 
previous row is assigned the same sequence number as that point. The 
sequence numbers of the grid points are stored in an NM x NN index 
array and returned as output along with the total number of 
nonidentified points. 
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Subroutine 

GWNET 

Purpose 

To calculate the coordinates of all panel corner points in a gothic wing 
planform configuration 

Input 

Common block 

/DAT3/ — NTR,XTR,MSP,YSP,NTC,YLE 

Output 

Common block 
/DAT3/— NTE 
/MSPNTS/ — ZM 

Subroutines 

SWEPTE 

Called 

Discussion 

The Y coordinates of panel corner points at the intersection of the 
leading edge and transverse cuts are input by the user. 

The Y coordinates of panel corner points between the leading edge and 
root chord on the transverse cuts are computed by multiplying the Y 
coordinate at the leading edge by the array of percent values YSP. 

Subroutine SWEPTE is called to calculate the Y coordinates of all 
panel points aft of the root chord. 

The X coordinates of the panel corner points are the X values of the 
transverse cuts input by the user. All Z coordinates are set to zero. 

Subroutine 

INTCAL 

Purpose 

To compute the H integrals involved in the formulas for the source and 
doublet panel induced velocity influence coefficients. (See sec. B.3 of 
app. B of the Engineering Document.) 

Input 

Common block 
/INTQ/— MXQ ,MXK 
/PIVINT/ — X,P,AC,BC,DIAM 

Output 

Common block 
/INTQ/ — H ,HZ , IH 

Subroutines 

SIDECL, ZERO, TRNSFR, FKCAL, FMNCAL, FNKCAL 

Called 

Discussion 

The routine calculates the integrals H(M,N,K)=1(SIGMA,KSE**(M-1) 
*ETA**(N-l)/RHO**K,DKSE*DETA) for M=1,MXQ and 

N=1,MXQ-M+1 .and K=1,MXK,2. A description of the calculations 
performed is contained in section B.3 of appendix B of the Engineering 
Document. The routine can be divided into three parts. In the First 
part, preliminary quantities concerning the geometric relationship of 
the Field point to the quadrilateral are calculated. In the second part, 
the F integrals are calculated for each side of the quadrilateral and 


accumulated. In the third part, procedure 1, 2, or 3 is executed. 
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IPTRNS(IP) 

To write panel information on disk 
Calling sequence 

IP — Panel number of information to be written 
Common block 

/PANDQ/ — CP,PC,RO,AR,ART,P,A,B,DIAM,C,AST,IIS,INS,ITS 
/PINDX/ — KP,NPWR 

Common block 
/PINDX/— KP 

None 

Writes 197 words of panel information from common block PANDQ 
onto disk file specified by NPWR. 
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Input 
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Subroutines 

Called 

Discussion 


ITFLOW(X,N,RX,DX,Y,RY) 

To perform iterative scheme using quasi-Newton algorithm for the 
solution of a set of nonlinear equations 

Calling sequence 

X — Array of initial values for the variables 
N — Number of variables 
DX,Y,RY — Scratch arrays 

Common block 
/NFAJ/ — NEQ,NF 
/NITF/— ITMX,ITPRIN 

Calling sequence 
X — Array of solution vector 
RX — Array of residual vector 

VIP, FUNC, OUTPUT( OVERLAY-4,0), AJGEN, SOLVER 
(OVERLAY-3,0) 

The routine calls FUNC to evaluate residuals RX and calls AJGEN to 
set up the Jacobian AJ. The system of equations AJ*DX=-RX is solved 
and a new approximate solution is found using corrections DX. 
Residuals and Jacobian are evaluated at the new solution. The - 
procedure is repeated until the sum of squares of residuals satisfies a 
predetermined tolerance TOL or the given maximum number of 
iterations ITMX is reached. The routine includes a procedure of 
generating new AIC after every kit iteration. The Jacobian will be 
calculated by calling AJGEN only when new AIC is generated. 
Otherwise, it will be updated by using a formula of quasi-Newton 
scheme (see Engineering Document). Number of iteration, sum of 
squares of residuals, and step size are printed for every ITPRIN 
iteration. For iteration study and checkout purpose, some other 
intermediate print statements are included (see listing). 
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To sort the column of a two-dimensional array using the given key 
index array 

Calling sequence 

A — Array of which the column is to be sorted 

M — Number of rows of A 

N — Number of columns of A 

KEY — Array consists of given key indices 

W — Working array of same dimension as A 

Calling sequence 
A — The sorted array 

None 

The contents of array A are stored in a working array using the 
indices given in key array. Working array is then transferred back to 
array A. 

LINEQS(A,NR,N,IPR,B,M,D1) 

To solve a system of linear equations A*X=b 
Calling sequence 

A — Array consists of elements of the coefficient matrix 
NR — Maximum row dimension of arrays A and B 
N — Order of the coefficient matrix 

B — Array consists of M right-hand sides of the linear system 
M — Number of right-hand sides 

Calling sequence 

A — The lower triangle of the array consists of a lower triangular 
matrix L, and the upper triangle consists of an upper triangular 
matrix U. (Since U is unit upper triangular, its diagonal elements 
are not stored.) 

IPR — Array gives numbers of pivotal row (a record of interchanges) 

B — Solution vectors 

Dl — =+l or -1 according to the number of interchanges being even or 
odd. It also indicates successful return; - 0 indicates that the 
coefficient matrix appears singular. 

TDECOM, BSUBSM 

Routine TDECOM is first called by LINEQS to perform the 
decomposition of the coefficient matrix A into a lower triangular 
matrix L and an upper triangular matrix U. The result is then used in 
BSUBSM for carrying out back substitutions and obtaining the 
solution to the system of equations. 

This routine is a modified version of a routine in the subroutine 
library of the Boeing Computer Services company. 
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LSQSF 

To find the generalized inverse from a least squares fit 
Common block 

/LSQSFC/ — ZK,WTK,NO,NPK 

Common block 
/LSQSFC/ — AK 

TRANS, MMULT, PDSEQS 

The routine first forms the weighted normal equations. It then calls 
routine using the Cholesky scheme to solve the system of equations 
and finds the generalized inverse. If the system of equations is not 
positive definite, an error message will be printed and execution of the 
computer program will be terminated. 

MMULT(A,B,C,L,M,N) 

To multiply two matrices 
Calling sequence 

A — Array containing elements of matrix A 
B — Array containing elements of matrix B 
L — Number of rows in A and C 
M — Number of columns in A and rows in B 
N — Number of columns in B and C 

Calling sequence 
C — Resultant matrix 

CMAB 

MMULT calls CMAB to calculate (C) (A)(B). 

PANUNKART, RO,Y,X) 

To transform point coordinates from the local panel system to the 
universal system 

Calling sequence 

ART — Local to global panel system transformation matrix 
RO — X,Y,Z coordinates of panel center (universal) 

Y — X,Y,Z coordinates of point to be transformed (local) 

Calling sequence 

X — X,Y,Z coordinates of transformed point (universal) 

MMULT 

The local panel coordinates are multiplied by the matrix ART using 
subroutine MMULT to produce the global panel coordinates which, 
when added to the universal panel center, produce the universal 
coordinates. 
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PDSEQS(A,NR,N,DN,B,M,D1) 

To solve a system of equations A*X=B, where A is a positive definite 
symmetric matrix, using Cholesky decomposition 

Calling sequence 

A — Array of which the upper triangle is the upper triangle of a given 
positive definite symmetric matrix 
NR — Maximum row dimension of arrays A and B 
N — Order of the positive definite coefficient matrix 
B — Array consists of M right-hand sides of the linear system 
M — Number of right-hand sides 

Calling sequence 
B — Solution vectors 

A — Array of which the upper triangle is same as input, the lower 
triangle contains the lower triangular matrix L from Cholesky 
decomposition with diagonal elements excluded 
DN — The reciprocals of diagonal elements of L 
Dl — =1 for successful return 

= 0 indicates that the given coefficient matrix appears not positive 
definite 

None 

The routine first performs the Cholesky decomposition of the given 
matrix A into a lower triangular matrix L and its transpose. It then 
solves the given system of equations by back substitutions. 
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PIDENT(P,Q,IDENT) 

To determine whether the points P and Q are to be considered 
numerically identical 

Calling sequence 
P — Coordinates of first point 
Q — Coordinates of second point 

Calling sequence 

IDENT — Logical variable equal to true if P and Q are considered 
identical, and false otherwise 

None 

The routine determines whether the points P and Q are considered 
numerically identical. The criterion for identity is that the distance 
from P to Q must be smaller than or equal to l.E-12 times the sum of 
the lengths of P and Q. 
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PIVC 

To obtain doublet panel influence coefficients for a given control point 
Calling sequence 

Z — X,Y,Z coordinates of a given control point 
Common block 

/PANDQ/— RO,AR,ART,P,A,B,DIAM,C 
/SYMM/— NSYMM 
/ZIP/— IPZ,IP 

Common block 
/PIVM/— DVDS 

UNIPAN, DIPV, MMULT 

The routine first transfers some of the panel information to be used by 
the integration routine. It then calls the integration routine to provide 
influence coefficients for a given control point induced by doublet 
distribution of the specified panel and its image (when NSYMM is set 
to 1). The influence coefficients are modified to account for the case 
when the given control point is located on the influencing panel itself 
(see Engineering Document — Aerodynamic Influence Coefficients). 


PTRNS(IP) 

To read panel information from disk 
Calling sequence 

IP — Panel number of information to be read 

Common block 
/PINDX/— KQ,NPRD 

Common block 

/PANDQ/ — CP,PC,RO,AR,ART,P,A,B,DIAM,C,AST,IIS,INS,ITS 
/PINDX/— KQ 

None 

Reads 197 words of panel information from disk file specified by NPRD 
into common block PANDQ. 


SHEGEN(ALPHA,X,S,N,Y,Z) 

To provide an initial guess of the free and fed sheet geometry at a 
particular transverse cut 
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Calling sequence 

ALPHA — Angle of attack of the wing (in radians) 

X — X coordinate of transverse cut (APEX is X=0.0) 

S — Y coordinate of leading edge on transverse cut 
N — Desired number of free sheet panels in transverse cut 
Calling sequence 

Y — Y coordinate of corner points defining shape of free and fed sheets 
on given transverse cut 

Z — Z coordinates of corner points defining shape of free and fed sheets 
on given transverse cut 

None 

The routine computes an initial guess of the free and fed sheet 
geometry at a particular transverse cut. (See starting solution section 
of Engineering Document for method. Points describing the curves of 
figure 17 are stored in the array YZVAL.) Each curve represents the 
free and fed sheet geometry for one of eight values of A. Points 
describing the free and fed sheet geometry for an arbitrary value of A 
are obtained by linear interpolation (or extrapolation). Linear 
interpolation is then employed on this new set of points to construct a 
representation of the free sheet by the number of points specified in 
the input data. 


Subroutine 

Purpose 


Input 

Output 


SIDECL(W,DSMIN,D) 

To compute geometric quantities associated with the relationship of 
the field point to the quadrilateral Z for use in computing the H 
integrals. (See fig. 30 and sec. B.3 of app. B of the Engineering 
Document.) 

Common block 
/PIVINT/ — X,P 

Calling sequence 

W — Point on quadrilateral closest to projection of field point onto 
quadrilateral plane 

DSMIN — Minimum distance of projection of field point onto 
quadrilateral plane to perimeter of quadrilateral 
D — Distance from W to projection of field point onto quadrilateral 
plane 

Common block 
/SIDEQ/— QSIDE 

/SKAICl/ — AKS1,AET1,AKS2,AET2,DRM,EL1,EL2,ELM,ANK,ANE, 
A,AA 
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TRNSFR 

The routine computes geometric quantities associated with the 
relationship of the quadrilateral I to the projection of the field point 
onto the quadrilateral plane. In particular, the routine determines 
whether the projection lies inside or outside of the quadrilateral as 
well as calculates the minimum distance from the projection to the 
perimeter of the quadrilateral. Other quantities computed include 
those quantities displayed in figure 31 and discussed in section B.3 of 
appendix B of the Engineering Document. The quantities associated 
with the quadrilateral in general are returned via the call list, 
whereas the quantities associated with each side of the quadrilateral 
are stored in a common block array, a side at a time. 


SINFCC(Z) 

Given the X,Y,Z coordinates of a point SINFCC defines a matrix 
(DSDFS), which when multiplied by a vector consisting of values of all 
doublet parameters, gives the value and 1st, 2nd derivatives of doublet 
strength at the given point 

Calling sequence 

Z — X,Y,Z coordinates of the given point 

Common block 

/INDEX/— NSNGT 

/PANDQ/ — RO,AR,AST,IIS,INS 

Common block 
/SNGC/— DSDFS 

UNIPAN 

Subroutine UNIPAN converts the input point from the universal to 
local panel coordinate system. 

A six-by-six matrix is formed by the general equation representing the 
doublet strength distribution at the given point on a panel and its 
derivatives. 

A six-by-sixteen matrix (AST) for coefficients of quadratic doublet 
distribution on the panel also exists. The matrix is computed in 
subroutine SING. 

The matrix DSDFS is formed by multiplying these two matrices. 
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SING(NT.NM.NN,NS.NSA,NPA.ZM> 

To calculate the singularity distribution defining quantities for a given 
network 

Calling sequence 
NT — Network type 

NM — Number of spanwise cuts in the network 
NN — Number of transverse cuts in the network 

NSA — Total number of singularity parameters in all previous 
networks 

NPA — Total number of panels in all previous networks 
ZM — Coordinates of corner points in the network 

Common block 
TPRINT/ — IPSING 
PANDQ/— RO,AR 

Calling sequence 

NS — Number of singularity parameters in the network 

Common block 
/PANDQ/— AST, IIS, INS, ITS 

GCPCAL, GRDIND, PTRNS, UNIPAN, LSQSF, IPTRNS 

The routine calculates the dependence of each panel singularity 
strength distribution on the free singularity parameters of the 
network. Separate computations are performed for each network type. 
First, the locations of the free singularity parameters on the network 
are computed and indexed. For each panel, the singularity parameters 
affecting the distribution of singularity strength on that panel are 
isolated. Each such parameter is assigned a weight Uarge if the 
parameter actually lies on the panel). The panel singularity 
distribution is then obtained by fitting a quadratic form <if the 
singularity is of doublet type) to the parameters by the method of least 
squares. The matrix that relates the coefficients of the distribution to 
the singularity parameters is then stored on a file along with indices 
identifying the parameters. 

SNGCAHZ,TSC> 

To calculate the value and 1st, 2nd derivatives of doublet strength at 
the specified point 

Calling sequence 

Z — X.Y,Z coordinates of the given point 

Common block 
/SOLN/— S 

Calling sequence 

TSC — Array consists of the value and lst.2nd derivatives of doublet 
strength 

SINFCC, MMULT 
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SNGCAL calls subroutine SINFCC to produce the matrix DSDFS. 
MMULT multiplies this matrix by the vector consisting of values of all 
doublet parameters previously obtained to produce the value and 
1st, 2nd derivatives of doublet strength at the given point. 


SURFIT 

To define panel surface and local panel coordinate system 

Common block 
/FLATP/ — NFLTP 
/LSQSFC/ — ZK , WTK , N O ,N PK 
/PANDQ/— CP 
/IPRINT/— IPGEOM 

Common block 
/PANDQ/— PC,RO,AR,P,A,B 

CROSS, UVECT, TRANS, UNIPAN, LSQSF, MMULT 

The routine defines a panel surface and local panel coordinate system. 
As a first approximation to the panel surface, the routine takes the 
quadrilateral formed by projecting the panel corner points onto the 
plane through the midpoints of the line segments joining these corner 
points. A local coordinate system is constructed with the origin at the 
average of the quadrilateral corner points and with one axis normal to 
the quadrilateral. To obtain a second order approximation to the panel 
surface, the routine calculates a paraboloid passing through the corner 
points with curvature obtained by least squaring the paraboloid to 
adjacent corner points. The local coordinate system is then rotated and 
translated in such a manner that the paraboloid can be represented in 
canonical form. An iterative process is required to eliminate linear 
terms without translating the origin. 


SURPRO(Z,ZP,UN) 

To find the location of the projection of a point onto a panel surface as 
well as the surface normal at this location 

Calling sequence 

Z — Global coordinates of point to be projected 

Common block 
/PANDQ/— RO,AR, ART 

Calling sequence 

ZP — Global coordinates of location of projection 

UN — Global coordinates of unit normal to panel surface at this 
location 

UNIPAN, UVECT, PANUNI, MMULT 
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The routine calculates the projection of a point onto a panel surface as 
well as the surface normal vector at the projected point. All input and 
output vectors are assumed to be given in global coordinates. The 
routine converts to local coordinates, projects and converts back to 
global coordinates. In the event that the given point does not lie above 
or below the panel, the projection is made onto the paraboloid of which 
the panel is a part. 


SWEPTE(X,S,N,Y,M,YP) 

To calculate the Y coordinates of the panel corner points aft of the root 
chord for swept trailing-edge designs 

Calling sequence 

X — Array of transverse cut X values starting with the last cut that 
intersects the root chord 

S — Array of Y coordinates of the leading edge on the transverse cuts 
specified by X 

N — Number of transverse cuts aft of the last transverse cut to 
intersect the root chord plus one 

Y — Array of Y coordinates of panel corner points lying on the last 
transverse cut that intersects the root chord 
M — Number of spanwise percent values input by the user 

Calling sequence 

YP — Array of Y coordinates of panel corner points aft of the root chord 
None 

Given the coordinates of two points defining a line and one coordinate 
of a third point on the line, the unknown coordinate of the third point 
can be calculated by triangulation. 

One of the points defining the line is the leading-edge/trailing-edge 
intersection point. The other point is the panel corner point lying on 
the last transverse cut that intersects the root chord. 

The X value of the third point is the value of the transverse cut. 


TCNTRL 

To designate the location of control points for all network panels and 
to compute the unit normal vector and the normal component of 
freestream velocity vector at every control point 

Common block 

/INDEX/— NT, NM,NN,NPA,NZA,NNETT 
/MSPNTS/ — ZM 

Common block 

/BDYCS/ — ZC,ZCC,ZCR,ZDC,IPC,ITC 
/INDEX/— NCA,NCTRT 
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CONTRL 

The routine calls CONTRL to calculate the location of control points 
for all panels and to compute the unit normal vector and the normal 
component of freestream velocity vector at every control point on all 
panels for each network. It also finds the cumulative number of control 
points and the total number of control points. 


TDECOM(A,NR,N,V,IPR,Dl) 

To decompose a square matrix into lower and upper triangular 
matrices with partial pivoting and row equilibration 

Calling sequence 

A — Array consists of elements of a given matrix 
NR — Maximum row dimension of array A 
N — Order of the given matrix 

V — Scratch array, may be same array as IPR to save storage 
Calling sequence 

A — The lower triangle of the array consists of a lower triangular 
matrix L, and the upper triangle consists of an upper triangular 
matrix U (since U is unit upper triangular, its diagonal elements 
are not stored) 

IPR — Array gives numbers of pivotal row (a record of interchanges) 

D1 — =+l or -1 according to the number of interchanges being even or 
odd. It also indicates successful decomposition 
=0 indicates that the given matrix appears singular 

VIP, VIPS 

The routine performs the crout factorization of a given matrix with 
partial pivoting and row equilibration. The upper and lower triangular 
matrices resulting from the decomposition are stored in the array A 
which originally consisted of elements of the given matrix. If one of 
the pivots appears to be too small, D1 is set to zero and an error exit is 
taken. 

This routine is a modified version of a routine in the subroutine 
library of the Boeing Computer Services company. 


TGEOMC 

To generate essential geometry information for each panel of all the 
networks 

Common block 

/INDEX/— NT ,NM,NN,NPA,NZA,NNETT 
/MSPNTS/ — ZM 
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See output of subroutine GEOMC 
GEOMC 

The routine calls GEOMC to calculate essential geometry for all 
panels of each network. 


TRANS(A,AT,M,N) 

To form the transpose of a matrix A and store the result in a matrix B 
Calling sequence 

A — Array containing matrix elements to be transposed 
M — Number of rows in A and columns in B 
N — Number of columns in A and rows in B 

Calling sequence 

AT — Array containing elements of the transpose of the given matrix 
None 

AT(J,I) is set to A(I,J) as I varies from 1 to M and J varies from 1 to N. 


TRNSFR(X,Y,N) 

To move a number of elements from one array to another 
Calling sequence 

X — Location of the first array element to be moved 
N — Number of elements to be moved 

Calling sequence 

Y — Array of elements identical to the first N elements in array X 
None 

Y(I) is set to X(I) as I varies from 1 to N. 


TSING 

To designate the location of doublets on all network panels and to 
compute the matrix for coefficients of quadratic doublets distribution 
for each panel 

Common block 

/INDEX/— NT,NM,NN,NPA,NZA,NNETT 
/MSPNTS/ — ZM 

Common block 
/INDEX/— NS, NSA,NSNGT 
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SING 

The routine calls SING to calculate the location of doublets on panels 
and to compute the matrix for coefficients of quadratic doublet 
distribution for every panel of each network. It also finds the 
cumulative number of doublets. Finally, the total number of doublets 
is obtained. 


UNIPAN(AR,RO,X,Y,) 

To transform point coordinates from the universal system to the local 
panel system 

Calling sequence 

AR — Global to local panel system transformation matrix 
RO— X,Y,Z coordinates of panel center (universal) 

X — X,Y,Z coordinates of point to be transformed (universal) 

Calling sequence 

Y — X,Y,Z coordinates of transformed point (local) 

MMULT 

The coordinates of the panel center are subtracted from the coordinates 
of the point to be transformed. This global array is then multiplied by 
the matrix AR using subroutine MMULT to produce the local panel 
coordinates. 


UPDATE 

To update corner points of free sheet, fed sheet, and the part of wake 
attached to those sheets 

Common block 
/INDEX/ — NM,NN,NP,NZ 
/MSPNTS/ — ZM,ZL 
/SOLN/— ZA 

Common block 
/MSPNTS/— ZM 

None 

Corner points are updated using given values of angle and fixed chord 
length of panels in transverse cut obtained previously in 
INPUT(OVERLAY-1,0). It is assumed that panel corner points move 
only in transverse cuts. The routine assumes that NM(3)=2, NN(4)=2, 
and NM(5)=NN(5)=2. 
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UVECT(A) 

To calculate the direction cosines of a vector 

Calling sequence 
A — Direction numbers of a vector 

Calling sequence 
A — Direction cosines of a vector 

None 

UVECT performs the following calculations — A(I) / SQRT(A( 1)*A(1)+ 
A(2)* A(2)+A(3)* A(3)), where I varies from 1 to 3. 


VINFCC 

To generate the three components of aerodynamic influence coefficients 
for a given control point induced by all panels doublet distribution 

Calling sequence 

Z — X,Y,Z coordinates of a given control point 
ZN — Normal vector at the control point on panel surface 
ZD — Perturbation distance for control point at edges 
JPC — Index of panel of which components of AIC are to be transformed 
to its local coordinates 

Common block 
/CM03/ — NPIF 
/INDEX/ — NPANT,NSNGT 

Common block 
/PINC/ — DVDFS 

PTRNS, EIVC, PIVC, MMULT 

For every panel, the routine calls PTRNS to transfer panel 
information. Depending on the given control point being at the edge or 
interior of the panel, the routine calls EIVC or PIVC to evaluate the 
integrals. The latter is then multiplied by the generalized inverse from 
least squares fit of quadratic doublet distribution obtained in 
subroutine SING to form the three components of aerodynamic 
influence coefficients. If JPC is specified, the components of AIC will 
be transformed to local coordinates of that particular panel. 


VIP(A,INCA,B,INCB,N,C) 

VIPA(A,INCA,B,INCB,N,C) 

VIPS( A,INCA,B,INCB,N,C) 

To perform vector inner product calculation (VIP) and to add (VIPA) to 
or subtract (VIPS) from an incoming value (COMPASS) 
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Calling sequence 
A — Vector A 

INCA — Increment between successive elements of A 
B — Vector B 

INCB — Increment between successive elements of B 
N — Number of elements to be multiplied 
C — An incoming value to be added to (VIPA) or to be 
subtracted from (VIPS) 

Calling sequence 

C— Result: C=A-B(VIP), C=C+A-B(VIPA), and C=C-A*B( VIPS) 

None 

The inner product of two vectors A and B is calculated and stored in 
C(VIP). The result is added to (VIPA) or subtracted from (VIPS), an 
incoming value C, and the sum or the difference is stored back in C. 

This routine is a modified version of a compass routine in the 
subroutine library of the Boeing Computer Services company. 
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ZERO(A,N) 

To set the elements of an array to zero (COMPASS) 
Calling sequence 

A — Location of first element to be set to zero 
N — Number of elements to be set to zero 

Calling sequence 
A — Array of zero elements . 

None 

A(I) is set to zero as I varies from 1 to N. 
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PROGRAM LISTING 


Overlay programs and user library are listed in order as previously shown in the section 
"Names of Programs and Subroutines.” 
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DISCUSSION SEE PROOF A M DOCUMENT 1.3 DESCRIPTION AND FLOW CHAP T CF 
OVERLAY P 5 OOP A M S . 


<* * * 4 [*<•.# 


COMMON /CMD3/NTSIN,MSni.JT , N T GO , NP I F , N A I C3 , NA I C,NJAC,NSCF 
COMMON /BDYCS/D7C ( 6 , 1 2 5 I , 7 C.F ( 1 25 ) , 70C < 1 2 5 > , I Z C. < 1 25 , 2 ) 
c. O.M VPN / I MOE X 7 DN ( 0 , 7 ) , ON A ( 1 c , A ) , NNE T T , NP ANT , N S NOT , NC TR T , N 7. MP T 
COMMON /MSP NTS / 7.M ( 3 , 1 75 ) , Z L ( 75 ) 

CQMMCN/FLAT P/NFLTP 

C. 0**M0\'/F SVEL/FSV( 3) ,FSVM, ALPHA, X PI TCH, F CHOPO 

COMMON /RYMM /NS YMM 

COMMON /NEOS/NF ,NP ,NMAT, nfhs 

COMMON /NFAJ/NEO.NF ,NC 

COMMON /MI t F/NFUN, JT, I TM X , K I T , I t P» I N 

COMMON /SOLN/S( 125) ,ZA(75) 

COMMON /ADR /RTO.QTP 

C PM MO.N / I P P I NT /I PNPUT , IPGFOM, IPS INC,, TPC MTB , IPE I VC, I POUTR 
DIMENSION X ( 130 ) ,RX ( 130) , DY ( 1 30 ) , Y( 1 30 ,PY( 130) 

C. CONSTANTS FOP CONVERTING RADIAN Trj DFG* E p 

C. AND VICE VE-SA 

c T D = 57.29577951 $ DTP. = .C17A532925 

C SETS DISK FILE NUMBERS 

MTRtm = 5 % NTSOIJT = t 

M T GO = l $ NPIF = 2 
NAIC3 = 3 $ N A I C = A 

N J A 0 = 7 $ NSCP = P 

C SETS PRINTING COOFS FOR I NTFCMgo I A T FD 

C PESULTS, = l F 0° PRINTOUT $ = 0 UTH r °WISF 

I PNPUT = C i l POllT P = 0 
I PGE pm = IPS TNG = IPCNTF = I PE T VC = C 
0 r ALlS OVFPL AY ( 1 , 0 ) TO S C T up NETWORK 

C INDICES AND CQPN'EP POINTS 

CALL OVERLAY ( 6HV0P T FX , 1 , 0 ) 
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n o o 


c 

r 


r 

C 

r 


C 


c 

c 


CALLS OVERLAY (2,0) TO GENERATE 
VELOCITY COMPONENTS and A I C MATRIX 

HE UN = 0 

CALL OVERLAY(6HVnPTEX,2,0) 

obtains INITIAL values for doublet 
PARAMETERS BY SOLVING SYSTEM OF EQUATIONS 
with AIC MATRIX 

REWIND NTGD 
NS = NCTRT $ NR = 1 

DO 10 JC=1, NCTRT 
10 WP I T F( NTGD I ZCR(JC) 

N M A T = NAIC 3 NPHS = N T GP 
CALL OVrRLAY(6HVnRTEXt3tO) 
c F W I NO NR H S 

REAO(MRHS) (S( l) *I-l,N$NGT) 

IE t I tmx.NF.OI GO T 0 15 

DISPLAYS INITIAL DOUBLET DISTRIBUTION, 
POSITICQN OF EPEE SHEET, VELOCITY COMPONENT 
AND DELTA CP WHEN NO ITERATION IS REQUESTED 
ME UN = LOO $ I p OUT P = l 
CALL OVERLAY! 6HV0PTE X * 4, 0 ) 

GO To 40 

ITERATIVE SOLUTION 

15 CONTINUE 

I PNP LIT = G $ IPOIJTP = C 
I P G E r m = TP SING = I PC NT R = I PE I VC = 0 

STORES INITIAL GUESSES (DOUBLET PARAMETERS 
EXCLUDING THOSE AT EDGES AND ANGLES) 

HO 2C Ul.NF 

?o y m = s( NEO+n 
nr DC I = i , n g 
3 0 X ( N F + 1 ) = Z A( I ) *P TO 
N * N'F *■ NG 

CALL ITFLOWf X, M ,P X , DX , Y , P Y ) 

40 CONTINUE 
END 
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SUBROUTINE A JOEN ( X , N ) 

0 ****** 

r SUBROUTINE AJGEN 

C 

C PUP POST 

c 

r 
C 

r INPUT 

c 

r 

r 

v. 

c 

r 
c 
c 

C OUTPUT 

C 

c 

C SUBROUTINES 

C CAL LEO DFGMIJtDFGDT 

r 

C DISCUSSION THE ROUTINE STORES VALUES OF DOUBLET P AP AMETFR S C FX C LUO 

r -INC, THOSE AT EDGrS) AND ANGLES IN ARRAY S AND 2A °ESPEC- 

C TIVELY. R0U T INES ARE CALLED Tn GENERATE THE PARTIAL DEFI- 

C VATIVES OF FUNCTIONS F AND G WITH RESPECT TO DOUBLET 

C PARAMETERS mij EXCLUDING THOSE AT EOG c S (OFGMIJ) AND ANGLES 

r theta (DPGOT) 

C ****** 

0 I ME NS ION X( l) 

COMMON/ INDFX/NTl 9 ) , NM ( 9 ) , NN ( 9 I , NP< 9 ) ,NS< 9) * NC C 9) , NZ ( 9 ) , 

CUPAt 10) » NS A ( l r ) i NC A ( 1 0 I , NZ A ( 10) , NNETT ,NPANT ,NSNGT,MCTP T, NZMPT 
COMMON /^SPNTS/ZM (3,175) ,ZL(75) 

COMMON /N C A J/NEO, NF»NG 
COMMON /SOLN/S( 125) ,ZA(75) 
common / ADF /R TD» dtr 
DO 1C I = 1 , N P 
10 S ( N E C «■ I ) = X( ! ) 

DO ?C ! = 1 , NO 
20 Z A ( I ) = X ( N P + 1 )*DTP 

C OBTAINS PARTIAL DERIVATIVES W.R.T. Ml) 

CAIt. DFGMU 

r OBTAINS PARTIAL DERIVATIVES W.P.T. THETA 

NZMP = NZ( 1 ) + l 

CALL OFGOTf ZM( 1 ,N7.MP) t NM( 2) , NN( ? ) ) 

cftijpn 

END 


TO OBTAIN THF ANALYTIC JACORIAN FOR PERTURBATION VARIABLE 
-S (DOUBLET PAPAMFTEFS EXCLUDING THOSE AT EDGES AND ANGLE 
-S) ASSUMING 0( A1C ) /D( THETA ) = 0 

CALLING SEOUFNC E 

X - ARRAY OF VALUES FDR THE VARIABLES 

N - NUMBER OF VARIABLES 

COMMON BLOCK 

/ I NOFX/ - NM , NN » N7 

/M S°NTS / - ZM 

/ADR/ - DTP 

COMMON BLOCK 
/SOLN/ - S , Z A 
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SUB P CUT I NE DFGQT< ZM, NM,NN> 

C ****** 

S UBR CU T T NE DFGOT 

PUPPCSF TO CALCULATE PARTIAL DERIVATIVES OF FUNCTIONS F AND G 
WITH 5 F S d FC T id PANEL INCLINATION ANGLES of FREE SHEET 
ASSUMING D( AIC) /D( t het a > = o 

INPUT CALLING SEQUENCF 

ZM - COORDINATES OF CORNER POINTS OF FR FF SHEE T NETWORK 
NM - NUMBER CF SPANWISE CUTS QE NETWORK 
N'N - NUMBER OF TRANSVERSE CUTS OF NETWORK 
COMMON BLOCK 
/CM 03 / - NSCP 
/BOYCS/ - ZC 
/FSVEL/ - FSV 
/ N F A J / - NEQ »NE , NG 
/APR / - OTP 

OUTPUT COMMON BLOCK 
/CM OR/ - N J AC 

S UP E CU T I NFS 

CALLED P T RNS . CR 0 S S , UV EC T , V I P , UN I P An f M MijL T 

DISCUSSION A DETAIL DISCUSSION OF THE FORMULA USFO IN THE COMP'JTA 
-TICN IS GIVEN IN ENGINEERING DOCUMENT (SEE APPENDIX - 
GEOMETRY UPDATE COEFFICIENTS). THE ROUTINE FIRST FINDS A 
NORMAL VECTOR M FOP. THE PANEL. IT THEN COMPUTES OAPTIAL 
DERIVATIVES OF N WITH RESPECT TC ANGLE THETA, AND FORMS 
PARTIAL DERIVATIVES OF N.V AND OF PRESSURE JUMP WITH RES- 
PECT TO THF T A. FINALLY IT STQcps ALL PARTIAL DERIVATIVES 
C IN PROPER POSITION OF THF JACOBIAN. 

c ***** * 

COMMON /CMD3/NT S IN,NTSDUT, NTGD,NPIF,NA IC3.NAI C, NJAC.,MSCR 
COMMQN/BPYCS/7 C ( 3 , 125) ,7CC < 3, 125) , ZC.RU 25 ) , ZDC ( 125) , IZC( 125,2) 
COMMON/PANOQ/CP( 3,4) , PC ( 3 ) , R C ( 3 ) , A R ( 3 , 3 ) , AR T ( 3 , 3 ) , P ( 2 , A ) ,DUM ( 3 ) , 

CC ( 6, fc) , AST ( 6,16) , I I S( lfe) , I NS , IT S,NPDO 
COMMCN/F SV6L/FSV ( 3) , FSVM 
COMMON /PlNDX/KO,KQ,NPWR ,NPRO 
COMMON /NF A J/NEQ , NF , NG 
COMMON /SQLN/S( 12 5) , Z A ( 75 ) 

COMMON /EE0S/Fmije(250C) ,E V U( 375 0 , I RP( 50) . .. .. 

COMMON / ADR /P TO , JTp 
DIMENSION ZM(3,NM,NN) 

DI M ENSTCN M 3) , B( 3) , OADT ( 3 ) , DBDT ( 3 ) , DMl ( 3 ) , QN2 ( 3 I 
DIMENS ION CN( 3 ) , W ( 3) ,GMU( 3 ) , DNQTH ( 3 ) 

DIMENSION DNVDTHt 50) ,DCPDTH( 50) , AJ( 130) 

EQUIVALENCE ( D N V 0 T H , EMUC ) , ( DCPDT H, E M UE( 101) ) , ( AJ , EM(J) 

CQU t VALENCF (X,W( 1) ) , (Y,W(? ) ) 

REWIND NSCR 
REWIND N J AC 
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PFw’TKf) NTGO 

NFG = WF 4 - NG 

K'PW = - NG 

C PP OV IDES 7FP0 FOP D( AIC ) /0( THETA I 

f DP 310 J=l,NG 

C 3 10 A J ( NF+ J I = 0. 

CALL ZERO(AJ(MF+l) t NG> 

OP 120 1= 1, MFW 
F E AO ( NSCP ) ( 4J( J ) f J=1,NF) 

WP. ITFtNJAC ) (AJ(J),J=1,NFG) 

320 CON T INUF 
KO = 0 

c E W T NO NPIF $ NPRO = NPIF 
I PL = NFW 

OAP T ( 1 1 =D80T ( 1 ) =0 • 

MMMl = N M— 1 
NNM1=\>N’-1 

00 2 CO WP=1,NNMI 
DO 2 CO I P = 1 »NMMI 

1 TH = C 

r pl = ipl ♦ i 

CALL PTPNS(IPL) 

C CALCULATFS CROSS PRODUCT OF VECTORS A ANO f 

C TO FORM AN IIN?T NORMAL VECTJP 

DO 65 1 = 1*3 

ARF»ZMU , IP,MP)-ZM( I ,.!P+l,MP+H 
ABM*ZM< I * IP + l.MPI -ZM( I , I P, MP + 1) 

A ( I ) = A BE +ABM 
65 P( I I =A8E-A0M 

CALL CROSS( A 1 3 , CN ) 

SN= SCR T{ CN { l J**2«-CN( 2 )**2*CN< 3) **21 
CALL UVECT(CN) 

CALL VTP(CN»l»FSVt U3»VL3) 

TVL3 = ?.*VL3 

C CALCUALTES GRAD(MU) 

T SC? = 0. $ TSC3 = 0. 

CALL UNI PAN( AP ,RC , ZC t 1 ,NEQMPL) ,W I 
00 9C IC=1» INS 

is = 1 1 s t ro 

OX = AST(4,!C)«X + A ST ( 5 * I C ) *Y 
OY = A S T ( 5 « I C ) * X ♦ A ST ( 6 « I C ) *Y 
0S0FS2 = AS T ( 2 » I C ) + DX 
DS0FS3 = A S T ( 3 * I C ) ♦ OY 
TSC.2 = TSC2 ♦ 0S0FS2* S( I S ) 

T SC3 = TSC3 4- 0S0FS3*S(IS) 

9C CONTINUE 

Ml) = TSC2 i W I 2 ) = T SC 3 $ W(3) = 0. 

CALL MMULTl ART,w ,GMU,3,3, 1 ) 

C STARTS T 0 CALCUALTE D( N. V ) /OTHET A ANO 

C- D(V.GRAO(MU) 1/DTHFTA 

00 100 NP= 1 1 NNM l 
on ICC J P = 1 1 NM M 1 
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I TH= I TH+ 1 

IF! JP-IP 110,10,30 

C THETA INBOARD OF PANEL OUTBOARD EDGE 

10 IF(NP-MP+l) 30,40,20 

C THETA AFT OF PANEL L.E. 

70 IF ( M P-MP I 30 » 50 » 3 0 

C. SETS D ( N , V )/ DTHET A = 0 AND 

C D( V.G D AD ( MU) l/OTHETA = 0 

30 PNVO TH! I TH ) =0. 

DC PO TH( ITH) = 0. 

GO TO 100 

C THETA AT PANEL L.E. 

OAOT ( 2 ) = Z M( 3»JPfMO|-ZM(3,JP+I,MPI 
OAOT ( 3 ) = Z M ( 2 »J P +1 , MP ) - Z M (2 » JP , MP ) 

TF( JP-IP) 44, 45, 44 
44 OBDT ( 2 ) =DBDT ( 3 ) = 0 . 

DAOT (2 )=DADT( 2) +DADT (2) 

OAOT(3)=DADT(3)+OADT(3I 
GO T C 60 

4 5 D3 DT ( 2 ) = ZM<3, JP+l,MP) - ZM(3,JP,MP) 

OBDT ( 3 ) = ZM(2fJP»«P) - Z m ( ? , JP +1 , M P ) 

GO TO 6C 

C THETA AT PANEL T.F. 

5 0 DADT <?) = ZM( 3, JP«-1 ,MP+1) -ZM( 3, JP ,MP+1 ) 

OADT (3 ) = ZMI 2, JP» M P+1)-Z M !2,JP+1,N D +l ) 

I F ( JP-IP) 54,55,54 

54 D0DT (2)=0BDT( 3 ) =0 . 

DADT (2 )=DADTI 2)+DADT (?) 

OAOT (3)=DA0T( 3)*DADT (3) 

GO T C 60 

55 0P0 T (2 ) =ZM ( 3 * JP* 1 , M P+ I )-ZM( 3,JP«MP+1 ) 

CB0 T (3)=ZM< 2,JP,MP+1)-ZM<2, J P+1, M P+1 ) 

60 CALL CROSS! DADT, 8, DNI » 

CALL CROSS! AfDBDT » DN2 ) 

DO 70 1=1,3 

70 DNDTM T ) = DNl( I H-DN2! I) 

CALL VIP(CN,1,DNDTH,1,3,DNTHL3) 

DO 8 C 1 = 1,3 

PD D K 'DT H( I ) = (DNDTH(I) - DNTHL 3*CN! I I ) /SN 
C FORMS D!N.V)/DTHFTA 

CALL VIP(DNDTH,l, FSV , 1 , 3 , DNVDTH ( IThM 
ONVDTH(ITH) = DNVDTH! ITH)*DTR 
C CALCULATES D( DELT A CPI/DTHETA 

CALL VIPIGMU, 1,DNDTH, 1,3,GMUDN) 

DC PD TH ( ITh) = -TVL3*GMUDN 
CCPDTH! ITH) = OCPOTHI ITH )*OTP 
100 CONTINUE 

P GAO ( NSC P ) ( A J ( J) ,J = 1,NF) 

WRI TE(NJAC) {AJ(J),J=1,NF),( DCPDTH! J ) , J=l, ITH I 
WRITE! NTGD) (ONVDTH! J ) , J=1 » ITH) 

200 continue 

C STORES Alt PARTIAL DERIVATIVES IN PFOPEP 
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C POSITION OF THE JACOBIAN 

PEW I NO NT GO 
no A CO 1 = 1, MG 
PEAQINSC.F) (AJ(J) » J= 1 * NF ) 
c p AO ( NTGD ) (ONVOTHI J J,J=1,NG) 

WP I T E ( N J AC i (AJUI ,J*L V NF) ' ( DNVOTH ( J ) ,J=1,NG> 

400 continue 

FFTUPN 

END 
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SUBROUTINE DFGMU 


C ***♦*$ 


C 

c 

r 

C 

r 


SUBROUTINE DFGMU 

PtJPPCSF TO CALCULATE PAPTIAL DERIVATIVES OF FUNCTIONS F AND G 
WITH R E S D F C T TO DOUBLET PARAMETFPS (EXCLUDING THOSE AT 
EDGES > 


C 

C 

C 

C 

C 

C 

r 

r 

C 

c 

C 

c 

c 

c 

c 

r 

C 

r 

r 

r 

C 

c 

c 

c 

c 

c 

c 

c 


INPUT COMMON BLOCK 

/ C M3 3 / - NP I E, N A I C 3 
/BOYCS/ - 7 C 
/INDEX/ - NSNGT 
/ F SvEL / - FSV 
/NFAJ/ - NEQ , NF » NG 
/SOLN/ - S 

/EEQS/ - EMUE,EMU,TPP 

OUTPUT COMMON BLOCK 
/C M C3/ - NSC? 

S UP P CUT I NE S 

CAL LCD BSUBSM, PTP,NS»MMULT ? UNI PAN, VIPS 


DISCUSSION THE FORMULA AND NOTATION USED HERE ARE DISCUSSED IN DE 
-TAIL IN ENGINNFQING DOCUMENT (SEE APPENDIX - 0 C U E L E T ST- 
RENGTH UPDATE COEFFICIENTS). THE ROUTINE READS IN DE/EMUE 
AND DE/DMIJ AND CALCULATES ( DF / DMUE H - 1 ) * ( DE/DMU ) WHERE E 
IS THE FUNCTION CONSISTING OF ONLY THOSE EQUATIONS CORRES 
-PONDING TO CONTROL POINTS AT EDGES. THEN IT OBTAINS PAR- 
TIAL DERIVATIVES OF N.V ON WING AND ON FREF SHEET WITH 
RESPECT TO DOUBLET PARAMETERS. PARTIAL DERIVATIVES OF PRF 
-SSUPE JUMP V.GPAD(MU) WITH RESPECT TO DOUBLET PARAMETER 
ARE ALSO CALCULATED. FINALLY, PARTIAL DERIVATIVES WITH RE 
-S °ECT TO DOUBLET PARAMETERS EXCLUDING THOSE AT EDGFS ARE 

formed. 


C ****** 

COMMON /c mo 3/NTS IN,NTS0UT, NTGD,NPIF,NA IC3,NAIC,NJAC,NSCP 
CC M MCN/3DYC$/ZC( 3, 12 5 ) ,7CC( 3 , 12 5 ), Z C R ( 1 25 ), 7.DC ( 125 >, l ZC ( 1 25, 2 > 

COM MON /INDEX /ON (9, 7) , DN A ( I C ,4 ), NNE TT , NP ANT , NSNGT, NC TR T , NZ MPT 
CC M MON/ P ANDQ/CP ( 3 , 4 ) ,PC(3),PC(3),AR(3,3),APT(3,3),P(2»4)»A,B,OIAM, 
CC(6,6) , A ST (6,16), I ISC 16) , I NS , IT S , NPDQ 
CQMMCN/FSVEL/FSVI 3) ,FSVM 


COMMON /PINC/OVDFS( 3, 125 ) 
COMMON /PINDX/KP, KQ,NPWR ,NPRD 


COMMON /NF A J/NEO, NF , NG 
COMMON / SOLN/S ( 125) ,ZA(75) 

COMMON /FEQS/EMUEI 25CC) ,EMU(3750),IPR(50) 

DIMENSION VL(3 ) , FSVL( 3) , W{ 3 ) ,DSDFS2( 1 6 ) , DSDF S 3 ( 16 ) 

DIMENSION FGMUEI 50) ,AJ( 100) 

EQU I VALENCE (X,W( 1)),(Y»W(2) ),(FGMUE,IPP),(AJ, EMUE) 

C CALCULATES DE = ( DE/ OMUE ) ( - 1 ) * < DE/OMU ) 

C USING EMLJF AND EMU FROM SUBROUTINE FGCAL 
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r 

r 


C 


C 


r 


CALL RSUBSMI EMIJE , NEQ , NEO , I P P , EMU, NF ) 

PEW! NO NJ AC 
REWIND MTGO 
KO = 0 

c CW T NO NPIF S NPFD = NPIF 
PFWIND MAIC3 

SKIPS FIRST NEO RECORDS CORRESPONDING TO 
CONTROL POINTS AT EDGES 

DC. 10 1 = 1, NEO 
10 c E AD ( N A I C 3 ) OVDFSIl) 

NFW = NF - NO 
DO ICO I J = 1 » NF 
IP = IJ 

CALL PTRNSI I P ) 

P E A 0 ( N A I C 3 ) DVOFS 
DO 3C J=l,NSNGT 

CALL MMULTI AP , OVOFSI 1 ,J> ,W, 3,3, 1 ) 

DO 2 C 1=1,3 
20 DVDF R ( I , J ) = W( I) 

3C CONTINUE 

I F ( I J.G T .NFW) GO TO 40 

STORES D(N.V) ON WING 
WRITE(NJAC) (DV0FSI3, J), J=l,NSNGTJ 
GO Tr KO 

STORES n(N.V) ON FREE SHEET 

40 CONTINUE 

WP ITE(.NTGD) (DVDFSI 3, J) * J= l * NSNGT) 

CALCULATES 01 V.GR ADI MUI > ON FREE SHEET 
CALL MMULTI DVDF $.S,VL, 3, NSNGT, 1 ) 

CALL HMULTI AP,FSV,FSVL,3,3, 1) 

DO 50 1=1,3 

50 VL I I > = VL< n *■ FSVLI I ) 

TSC2 = 0. $ TSC3 = 0. 

CALL UNIPANI AP ,RD,ZC( 1,NE0+IJ),W) 

DC 60 I C = l , INS 
IS = I TSI IC) 

DX = AS T (4, IC ) *X ♦ ASTI5, I C ) * Y 
OY = AST(5,IC)*X * AST(fc,IC)*Y 
DSDFS2I IC) = A ST ( 2 , 1 C ) ♦ PX 
0S!)FS3(!C) = A S T ( 3 , T C ) + DY 
T SC. 2 = T SC2 ♦ DSDFS2 ( IC ) *S I I S ) 

T SC 3 = TSC3 - DSDFS3I IC)*SI IS) 

60 CONTINUE 

CO 70 IS = i, NSNGT ... . 

70 OVOFSI I, IS) = 2.*(TSC2*0VDFS(1» I S) - TS C3*0VDFS ( 2 , I S > I 
DO BC I C = 1 , INS 
IS = I IS( IC ) 

80 DVDF SI 1 , IS ) = DVDFS I 1 , I S ) 

1 h 2, VL ( l ) *DSDFS2( IC) V l I 2 ) *DS DFS3 1 IC ) ) 

WRITE(NJAC) I DVDF SI 1,J),J=L, NSNGT) 

100 continue 


C 


FORMS (DF/DMU) 


(DF/OMUE)*DE 



PEW I NO NJAC 
PFWIKO NSC 0 
nn 130 T=i,NF 

P PAH (NJAC) (FGMljP(j) f j=l,NFO),(AJ(J) ,J=l,NF) 

O n 12C J=1,MF 
JM = ( J— 1 ) *NE Q* 1 

12C CAU VIPStFGMUE. 1 ,EMU( JNII , l ,NEQ,AJ( J)) 
WPITE(NSCP) I A J 4 J > »J=l»NF) 

130 continue 

c FORMS (OG/DMU) - ( OG/DKUE) *0E 

FEW I NO NTGO 
00 150 1=1, NG 

P EAO (NTGO) ( FGMUE ( J ) , J=1 ,NFQ) , ( AJ( J ) , J= l,NF ) 

DO 14C J = 1 » N F 
Jf'l = ( J-l ) *MEO+ 1 

140 CALL V IPSlFGMUEt 1 ,EMU< JN1 ) , 1 , NFO, A J f J ) > 
WPITE(NSCP) ( A J ( J ) , J = 1 , N F ) 

150 CONTINUE 
FCTUPN 
E NO 


64 



o o 


SUBROUTINE FGCALl FVZ.GVZ ) 

C ****** 

C SUSP CUT I NE FGCAL 

r 

r PURPOSE TO SOLVE FOP DOUBLET PAP AM ETC PS AT EDGES AND To CALCULATE 

C FUNCTIONS F AND G 

C 

C IN°UT COMMON BLOCK 

C /CMOS/ - NP I F » N A I C 3 » NA I C 

C /BDYCS/ - 7C.ZCF 

C /FSVEL/ - FSV 

C / N F A J / - MF.Q »NF » NG 

C /SOLN/ - S 

C 

r CtJTPU T CALLING SEQUENCE 

C VZ - VALUES OF F 
GV7 - VALUES OF G 

c common block 

C t EEQS/ - EMUE,EMU f IPP 

C 

C SUBROUTINES 

C CALLED VIPS, LTNECS,pTRNS,MMULT f VIP, UNIPAN 


C 

C 

r 

C 

r 

r 

C 

c 

r 

c 

c 

c 

c 

r 

r 

r 

C 

r 

r 


DISCUSSION THE POIJTINF ®FADS FOWS OF A IC MATRIX T 0 EOF* COEPFj- 

C'TENTS OF FUNCTION E. THE SOLUTION FOR DOUBLET PARAMETERS 
( MUE ) AT EDGES APE FOUND BY USING FUNCTION E AND GIVEN 
VALUES OF all OTHER DOUBLET PARAMETERS (MU). SINCE E IS A 
FUNCTION OF DOUBLET PARAMETERS ONLY, DE/QMUE AND DE/D«U 
APE SIMPLY THE COEFFICIENTS OF E . IE THE MATRIX DE/O^UF 
IS SINGULAR, AN ERPOP MESSAGE WILL BE PRINTED AND THE EX- 
ECUTION OF THE COMPUTER P°0GFAm WILL BE TERMINATED. 
COMPONENTS OF INFLUENCE COEFFICIENTS ARE READ IN AND MUL- 
TIPLIED BY VALUES OF DOUBLFT PARAMETERS TO FORK PERTURBA- 
TION VELOCITY. THE LATTER IS ADDED TO FREE STREAM VELO- 
CITY TO BECOME THE AVERAGE VELOCITY VECTOR V. THE DOT PPG 
-DUCT N.V IS THEN CALCULATED FOP EVERY INTERIOR CONTROL 
POINT ON WING (FORMING PART OF FUNCTION F) AND CM FREE 
SHEET (FOPMING FUNCTION G>. 

THE JUMP IN PRESSURE CCFEF I E ICENTS V.GRAO(MU) (SEE ENGIN- 
EERING DOCUMENT) ON FREE SHEET IS ALSO CALCULATED (FOPM- 
ING THE OTHER PAPT qf FUNCTION F|. 


C ****** 


DIMENSION FVZ( 1 ) ,GVZ ( 1) 

COMMON /CMC 3 /NTS IN, NTSOUT , NTGD , M D I F , N A I C 3, N A I C , N J AC , NSC F •• * 
COMMON/BDYCS/ZC(3, 125 ) , Z CC ( 3 , 125 > , Z C R ( 1 25 ) , ZDC < 1 2 5) , I ZC ( 1 25 , 2 ) 
COMMON / INDEX /ON (9, 71 , ON! A ( 1C ,4 ), NNE TT , NP ANT ,N$NG T, NCTR T , NZ MOT 
f 0 M M ON t P ANOQ/C P (3, A), PC (3),RQ (3), AR(3, 3), ART(3, 3), p(2, A), A, B,DIAM, 
CC (6,6) ,AST( 6, 16) , T IS ( 16) , INS , TTS,NPDO 
COMMON /FSVEL /CSV ( 3) ,FSVM 
COMMON /PINC/DVDFS( 3 , 125 I 
COMMCN /PINDX/KP, KC,NPW° , N?RD 
COMMON /nfa j/neq,ne,ng 
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COMMCN /SOLN/SI 125) , 7AI75) 

COMVGN /EEQS/EMIJE ( 250G) ,FM!J< 3750 I , I PR < 50) 

OlViFNSIOM VG<3) ,VL(3) ,W< 3) 

ECU I VALENCE ( X , W ( 1 >) , < Y, W ( 2 ) » 

r SOLVES FOR EDGE DOUBLETS BY USING 

C FUNCTION E AND GIVEN VALUES OF ALL 

C OTHER DOUBLETS 

FEWINO NAIC 
DO 3G I = I , NEO 
IN = I - NEQ 

3D F FAD (NATC ) < EMUE ( J*NEC+I N ) , J = l, NEO ) , ( E M U( J*NEQ+IN ) » J = 1 * N F ) 

NC01 = NFO ♦ l 
DO AC 1=1, NEO 
S ( ! ) = ZCP ( T ) 

AO CALL VIPSIFMU(T) ,ME0,SINE01) , l'NF'S(l) > 

CALL L INEGS ( EMUE, NEO ,NEO, IPP,S, l,Dl) 

IF ( Ol.NE.C. ) GO TO 50 
P p I N T 10C1 

1001 FORMAT!/* (DE/OMUE) APPEARS SINGULAR*) 

STOP 

50 CONTINUE 

C STARTS TO CALCULATE FUNCTIONS F AnO G 

KQ = 0 

REWIND N P I F $ N°PD = NPIF 
REWIND NAIC3 

C SKIPS FIRST NEO RECORDS CORRESPONDING TO 

C CONTROL POINTS AT EDGES 

DO 6C 1=1, NEO 
60 READINAIC3I DVD^SIl) 

NFW = NF - NG 
DO ICC IJ=1,NF 
IP = IJ 

CALL PTRNSI IP) 

P FAD ( NA IC3I DVDFS 

CALL mmuLTI DVDFS.S,VG,3,NSMGT,1 ) 

no tc 1 = 1,3 

7 C VG ( I ) = V G< I) + FSV( I) 

I F ( I J.GT.NFW) GO TO 8C 

C. CALCULATES N.V ON WING 

CALL VIP( AP ( 3) ,3,VG, 1 ,3, P V7 ( I J) J 

on tt ico 

C CALCULATES N.V ON FP EE SHEET 

BC TG = IJ - N F W 

CALL NMULT ( AR, VG,VL,3,3, 1 ) 

GVZ ( TG ) = VL ( 3) 

C CALCULATES V.GRAO(MU) ON FREE SHEET 

T SC2 = C. i TSC3 = 0. 

CALL UN IRANI AR ,P0 ,ZC ( 1 , NFC + I J ), W) 

00 9C IC=1, IMS 
IS = T TS< IC) 

DX = AST (A, I C I ♦ X + A S T < 5 , I C ) * Y 
HY = AST(5,IC)*X + AST<6, IC ) * Y 
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0S0FS2 = AST(2, IC 1 + OX 
OSr>c S 3 = ASTn.ICI ♦ CY 
TSC2 = TSC2 *■ OSOFS2*S(ISJ 
T S r 3 = TSC3 - DSDFS3* S < I S 1 
90 C.ONTINUF 

rV7 ( I J ) = 2.*( TSC?*VL 11 I - 

ion continue 

PFTIJPM 

FNO 


T SC3* VI ( 2 » » 
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SUBROUTINE FUNC ( X » N» P X I 
C * * ♦ * * 

C SUBROUTINE FUNC 

C 


r 

PI.J r P CSF 

TO EVALUATE FUNCTION F (N.V ON WING AND V.GRAO(MIJ) ON 

r 

r 


FREE SHEET) AND G (N.V ON FREE SHEET) 

r 

IMRIJT 

CALI ING SEQUENCE 

C 


X - ARRAY OF VALUES FQR THE VARIABLES 

r 


N - NUMBER OF VARIABLES 

r 


COMMON block 

r 


/ N F A J / - NEG,NF ,NG 

C 


/NITF/ - NFUN 

r 


/ S 01 N / - ZA 

c 


/ADR/ - DTP 

r. 

r 

OUTPUT 

CALLING SEQUENCE 

c 


PX - ARRAY OF VALUES OF FUNCTIONS 


C. 

C surfcutines 

r CALLED UPDATE, A ICGFN< OVER LAY-2 , 01 ,FGCAL 

r 

C DISCUSSION THE ROUTINE STORES VALUES OF DOUBLET P AB*AMETE c S> ( E X - 

C CLUDING THOSE AT EDGE) AND ANGLES IN ARP AYS S AND ZA 

C FESPECTIVLEY. IT USES MEW ANGLES TO UPDATE THE CORNER 

C POINTS OF FP EE SHEET, FED SHEET AND PAPT OF THF WAKE NF T- 

C WORK. AICGENIOVFRL AY-2,0) IS T HFN CALLED TO DESIGNATE LO- 

C CATIONS OF DOURLFTS AND CONTROL POINTS AND TO GENERATE 

C VELOCITY COMPONENTS AND AIC MATE IX US I NO THE UPDATED CORN 

r — E P POINTS. IF PRETUPRATION IN ANGLE IS NOT SIGNIFICANT 

C UPDATE AND A ICGEN AR F SKIPPED. FINALLY, THF ROUTINE CALLS 

C FOCAL TO CALCULATE VALUES OF FUNCTIONS F AND C. 

0 ****** 

DIMEfvR ION X (I) ,R Xdl 
COMMON /NF A J/NEQ t NF » NG 

COMMON /N ITF/nFiJN, JT , ITMX ,K I T , I TPR I N 
COMMON /SOLN/SI l >5) ,ZA( 75 ) 

COMMON / ADR /P TD , DTP 
DO 10 I * I , N F 
10 SINFC+D = X( I ) 

SUM - o. 

DO 2 0 1=1, NG 
XDTR = X(NFM)*QTP 
DZ A = Z A( I) - XDTR 
SUM = SUM +- DZ A-DZ A 
20 Z A ( T > = XDTR 

IR(NFUN.FO.P) GO TO 30 
IF< SUM.LF. I.0E-30) GO TO AO 
r print ICCl, SUM 

CLOOL FORMAT ( /* SUM OF SDUAFES OF CHANGES IM ANGLES (RAD.) = *,Fl<t.6) 

C 

c 


UPDATES CO D NEP POINTS 



CALL UPDATE 

C COTA INS VELOCITY COMPONENTS AND AIC .M A T <? f X 

3 0 CONTINUE 

C&IL OVEFL AY ( 6HV0PTEX t ? » 0 I 

C GETS VALUES OF FUNCTIONS F AND G 

CONTINUE 

CALL FGCAL{FX,SX( NF+ I ) ) 

f’FTlJRN 

F NO 
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no n n n n o <n n 


S IJB C CUT I NE ITFl.OWI X, N,PX ,DX, Y,R Yl 
f ***<=$’!'- 

C S *Jpo CUT I NE ITFICVI 

C 

C PIJP°CSF TO PERFORM IT=paTIVF S C H E M c USING QUASI -NEWTON ALGORITHM 

C FOP th.F SOLUTION OF A SET OF NONLINEAR EQUATIONS 

C 

C INPUT CALLING SECUFNCE 

C X - APR AY CF INITIAL VALUES FOP THE VARIABLES 

r N - NUMBER OF VARIABLES 

0 X » Y * R Y - SCRATCH ARRAYS 
COMMON BLOCK 
/ N F A J / - NEC , NF 
/N I TF / - I TM x » I TPP IN 

OUTPUT CALLING SL'QUENCF 

X - ARRAY OF SOLUTION VECTOR 
9 X - ARRAY OF PFSIPUAL VECTOR 


C 

C 

r 

r 

r 

C 

C 

c 

c 

r 

c 

c 

C 

c 

c 

c 

c 

c 

c 


subp ru tines 

C ALL EO VI P,FUNC tOUTPur < OV E P L A Y -A , 0 ) , A JGFM , S OLV E R ( OVE *U A Y- 3 , 0 I 

DISCUSSION THE ROUTINE CALLS FUNC TO E VALUA T E RESIDUALS EX AND 

CALLS AJGFN TO SFT UP THE JACOBIAN AJ. THE SYSTEM OF cQUA 
-TfONS AJ*DX = -ov TS SOLVED A NO A NEW APPROXIMATE SOLU- 
TION IS FOUND USING CORRECTIONS OX. RFS I DUALS AND JACOBI- 
AN ARE EVALUATED AT THE NEW SOLUTION. THE PROCEDURE IS »F 
-PEATED UNTIL THE SUM OF SQUARES OF ? ESI DUAL S SATISFI^R A 
PF EDETEF mImfo TOLERANCE tql OR T HE GIVEN MAXIMUM NUMBER 
OF ITFRATIONS ITMX IS REACHED. the ROUT I N fr INCLUDES A PRO 
-CFCURE OF GENERATING NEW Alt AFTER EVERY KIT ITERATIONS. 
THE JACOBIAN WILL BE CALCULATED BY CALLING AJC-RN ONLY 
WHEN NEW A I C IS GENEPA T ED. OTHERWISE, IT WILL BE UPDATED 
BY USING A FOPMULA OF QUASI-NFW T ON SCHEME (SEE pNGTNFE**- 
ING DOCUMENT ) . NUMBER OF ITERATION, SUM OF SQUAFFS OP RE- 
SIDUALS AND STEP SIZE ARE P° I N T ED for EVERY ITPPIN ITERA- 
TIONS. FOP ItEPATION STUDY AND CHECK OUT °URPOSE, SOMP 
OTHER INTFFHFOIATE PFINT STATEMENTS AF E INCLUDED (SEE 
LISTING! . 


C *** £*■*? 

I IMP NS I ON X(l) ,RX(I) ,DX( 1) ,Y( 1) ,PY( L! 

COMMON /CMC 3/ NT S I N , NT SO UT , N T GD , N° I F ,NA IC 3, N A I C , N JAC, NSC F 

COMMON /NEOS/NE»NP,NMAT, NPHS 

COMMON /NFA J/NEQ, NF ,NG 

COMMON / SOL N/S ( 1 2 5! * Z A ( 7 5 J 

COMMON /NITF/NFUN, JT , ITMX ,K I T , I T pc I N 

DIMENSION A J ( 1 30 ) 

C SETS PRINTING CODE ( F0= ITERATION STUDY) 

IP = 0 

C SETS NO. OF ITERATIONS TO GENERATF NEW AIC 


C. 


KIT = 5 


SETS TOLERANCE FOP CONVERGENCE, AND 
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r 

TOL 

II 

»—* 

• 

0 
m 

1 

percentage FOP. NEWTON step 


GAMA 

= C.l 


r 

TRR X 

= 1.0E50 

INITIALIZES ITERATION 


IT = 

A 



10 NFUN 

= c 



PAIL 

VIP(X, I,x,l, 

N * S X 1 

r 

C A i L 

F UNC ( X , N , P X ) 

CALLS FUNG TO EVALUATE RESIDUALS 


NFUN 

= NFIJN ♦ l 



C ALL 

VIP(RX,1,PX, 

1 , N , S P X ) 

c 



CHECKS IE STEP SIZE REDUCTION IS NEC F S S A' Y 

C 

IC = 

0 

AND SETS THE APPROPRIATE CODE 


JF< sfx.lt.tspx) 

IC = 1 


TC , r X 

= SPX 


c 



POINTS RESULTS FOP EVERY ITPRIN ITFRATjonS 


rF(wno( it, ups ini .nf.ci go to 15 

W= ITEINTSOUT, 5C10I TT,SPX 

5 C 1 0 r0 3 VftT(lHI,* ITERATION NO.*, 14, 9X,*$UM OF SQUAPES Of PEST DUAL S = *, 

SEIF. 10) 

IF(TT.NF.O) WP ITE(N*TSOUT»50?0» SAPS 
no 13 I - 1 , N F 
13 SINE CM) = X ( T > 

CALL CVEPL AY{6HV0PTEX ,4, 0) 

15 IF ( I P.FQ.O) GO TO 1R 

PRINT 105 


C 

C 


C 


105 FOP MAT ( 1H 1 > 

PPTNT 101, IT,SRX,NFUN 

Id FORMAT!//* ITERATION NO . * » I 3 , 5X , *S'JM OF SCUAPES OE P ES IDUAl S = *»Fl 
1 8 . 1 0 /♦ MG. OF FUNCTION CALLED =*,I4) 

PRINT ic2, C x ( II , I - 1 , N I 

102 FORMAT!/* VALUES OF VAR! ARL E S*/ { 5E 14 .6 ) I 

PPIN T 103, (PX(I),I=1,N) 

103 FORMAT!/* RESlDUALS*/(5El4.6l) 

18 T f ( IT.EO.OI G n TO 20 

I TP = IT + 1 

IF( ITO.GF.ITMX) GO Tn 1 10 
IF< SPX.LT.TnL) GO TP HO 

TO OBTAIN THF JACOBIAN 

20 CALL A J G E N ( X , N I 
PP ICO K= 1 , K I T 

TO SOLVE AJ*OX = -P X 

REWIND NTGD 
NE = N $ NP = l 
DO 3 C 1=1, N 
PXN = -PX( I I 
30 WFITF(NTGD) FXN 

NMAT = N J AC $ NRHS = NTGD 
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.*•"> o 


CALL p Vr PL AY ( 6HV0F T E X , 3, 0 ) 

REWIND MPHS 

PFAO(NPMS) <DX< I » f r = l,N) 

C TF(K.EO.l) PRINT 107, C OX < I ) , I = 1, N ) 

C 107 PDPMAK/* CO=!RECTIPMS*/< 5E14.6M 
CALL V T P (OX , 1 » OX , 1 , N, SOX ) 

C 

r DETERMINES THE ST C P SI7R 

Pxn = SOP T( SX/SOX) 

OALFA = AMT Nit G.AMA*p XD, 1 . I 
F A L p A = C A L F A 
IH = 0 

4 0 OP *5 0 I = 1 , N 

PX C I ) = CALFA^OX ( I ) 

5 0 V ( T ) = X ( I ) +- 0X( I> 

C PCTMT 109, FALFA 

C 108 FPRMAK/* (FRACTION OF NFW T QN STEP TAKEN =*, E 14. 6 , * ) * > 

0 PRINT l p 7, (0X( I) , 1 = 1 ,N1 

C pp INT 102, ( Y( I) , 1= l ,N) 

r 

C EVALUATES MEW RESIDUALS 

CALL FUNC(Y,N,RY) 

NFUN = MFIJN 4- 1 
CALL V l P ( R Y , l » R. V , 1 , N , $ ? Y ) 

if ( spy.lt.spx) on T n to 

TF( TO.EO. 1. AND.K.FO. 1) GO TP b 0 
I H = I H + 1 

PRINT 106, .1 H , SPY 

106 FORMAT* / 15, * CYCL C OF STFP SIZE <■ EDUCT I ON*/* SUM UF SQUARES OF c FS 
C 1 1 DUALS =*,014.6) 

IF ( IF.GE.3) GO TO 60 
CALF A = C . 5 
CALFA = 0 , 5 *F AL FA 
GC TO 40 
r 

C UPDATES THE JACOBIAN 

6 r AQS = S0X*FALFA**2 
RAPS = l./ADS 
REWIND NJAC 
REWIND MS CP 
D n 7 E 1=1, N 

READ(NJAC) ( AJ( J » , J=1,N ) 

CALL V I P ( Aj , 1 , OX , 1 , N » T JO ) 

cjP = (PY(I)-RXU)-TJD)*FADS 

OP 70 J=1,N 

A J ( J ) = A J ( J ) + R J D* D X ( J > 

70 CONTINUE 

75 WkT t E(NSCP> ( AJ( J> , J=l,N> 

NTH = NSCF 
NSC 0 =N J AC 
N J AC =MT H 
C 
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r. 

8 n 

r. 

5o?o 

85 

90 

104 

r 

r 

100 

no 


RESETS VALUE OF THE VAPIA8l.ES AMD THE RESIDUALS 

DO QD 1=1, M 
X ( I) = Y ( I ) 

py< T ) = ry!M 

Sfx = SPY 
JT r I T ♦ K 

PRINTS RESULTS FOR EVERY IT PRIM I TER A T I CMS 

S A D S = SORT ( ADS ) 

IF(K.FO.KIT) on TO 100 
I F ( VCD( JT , I T P8 IN ) .NE.O) GO TO 90 
WRITE! NT SOU T ,50101 JT.SFX 
WP I T 6 < NTSO'JT * 5020 ) SADS 

FORMAT!/* STEP SIZE (LENGTH OF CORRECTION VECTOR) =*,F14.6) 

DH 95 1=1, NF 

S( NEC* I) = xm 

CALL GVEPLAY(6HV0PTcX ,4, 0 ) 

IF ( I P.EO.O ) GO TP 100 
PRINT 101, J T , SR X , NF1 IN 
PRINT 104, R XO » FALFA 

FCRMAT(/* PATro OF LENGTH OF INITIAL VECTOR TO LENGTH of FULL NFWT 
ION STEP = */ E 14. 6/* FRACTION OF MFWTON STEP TAKEN =*,=14.6) 

PRINT 102, <X(I),T=l,N) 

PRINT 103, (PX( I ) ,T=l,N) 

CONTINUE 

IT = IT + KIT 

I F ( 1T.LE.IT MX) GO TO 10 

CONT !NUE 

pe t ijpn 

END 
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SUBROUTINE upda t e 
c ****** 

c S U p c OUT I NE UPDATE 

r 

c PURPOSE 

r 

C 

C INPUT 

C 

r 

C 

r 

r OUTPUT 

C 
r 

C SUP ROUTINES 

C CALLED NONE 

C 

C DISCUSSION CORNER POINTS ACf UPDATED USING GIVEN VALUES OF ANGLE 

C AND FIXED CHORD LENGTH OF PANELS IN TRaNSVERS^ C'JT OBTAIN 

C -PD PREVIOUSLY IN I NPUT ( OV ERL A Y- 1 , 0 J . IT IS ASSUMED THA T 

0 PANEL CORNER PCIN T S MQVF ONLY IN TRANSVERSE CUTS. 

C THE ROUTINE ASSUMES THAT NM (31*2* NN(4|-2, AND NM(5)= 

C NN ( 5) =2. 

C CMMrN/ INDEX /NT ( 9 ) , NM < 9 ) , NN< 9 ) , NP( 9 ) , NS ( 9 ) , NC < 9 ) , NZ ( 9 ) , 

C N PA ( lo ) , NS A ( 10) tNCAf 10) , N7 A ( 101 , NNE TT «NPANT t NSNGT , NCT B T , MZMPT 
COMMON /NSPMTS / ZM ( 3 1 1 75 I *71.(75) 

C ON VON / SOLN/S ( 125J , ZA( 75 ) 

C UPDATES CORNER POINTS OF FREE SHppT 

NM? = NM{2) $ NN2 = NN(2) 

NZM = N Z ( i ) + NM2 
DO ICC J = 2 » NN2 
J 2 = J -2 

JA = J 2* ( NM 2 - l) 

JM = NZM + J2*NM2 
DO ICO I =2» NM2 
II = 1-1 
I A = J A + II 
I M = J M I 1 

Z |.P = 71 < IA) * ZAP = Z & ( I A > 

7M(?,tm+L) = ZM(2,IM) ♦ 7LP*C0S(ZAO) 

ZM(3,IM+1) = 7.M(3,IM) + ZLP+SIN ( Z AP ) 

100 CONT INUE 

0 UPDATES CORNER PO!N T S OF FED SHEFT 

N Z 1 = N 7 ( 1 ) S NZ2 = NZ1 + NZ(2) 

NP2 = NP ( 2 ) * NP3 = NP ( 3 ) 

no 2co i = i,np;j 

IM = NZM + I*NM2 
TVN = NZ 2 + (2*1 + 1) 

Z M ( 2 , I MN ) = ZM ( 2 » I M ) 

ZM(B.IMN) = Z M < 3 « I M ) 


TO UPDATE CORNER POINTS QP F R E E SHEET, FED SHE^t AND Tmr 
PART OF WAKE ATTACHED TO THOSE SHEETS 

COMMON BLOCK 
/INDEX/ - NMtNNtNP.NZ 
/M SPN T S/ - ZM.ZL 
/ S DLN / - ZA 

COMMON BLOCK 
/M SPNTS/ - 7 M 
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IA = NP2 + ! 

ZLP = Zl ( IA) * ZAP = Z4( IA ) 

ZMIMMMtl) = ZK(2,IMN) + ZLP*COS(ZAP) 

ZM(3.!*N+I) = 7.M(3,IMN) ♦ ZLP*S1NIZA D ) 

? 0 C C CN T I NIJE 

f UPDATES FpPZFN WAKE ATTACHED Tfj FF EE SHEET 

N*3 = NM<3) 4 NM4 = NM(4) 

N 7 3 = NZ2 ♦ MZ { 3 ) * NZ4 = NZ3 ♦ N Z(4) 

NZMA = NZ2 - NM2 
N7«R = NZ3 + NM4 - NM2 
DO 3CO 1=2. NH2 
I M =• NZMA ♦ I 
I V N = N Z M B + I 

ZV(2.! M N+-NM4) = ZMI2.IMN) = ZM(2»IM) 

ZM( 3.IVN + NM4) = ZM(3 # IMVJ = 7MO,IM) 

3C0 CONTINUE 

C UPDATES FCOZFN WAKE ATTACHED T 0 FED SHFFT 

NM5 = NM(5) 

NZMC = \‘Z3 - NM3 
DO AGO I = UNM5 
IM = NZMC. ♦ I 
I M N = N7 4 ♦ I 

Z w ( 2 » I 2 ) = ZMI2.IMN) = ZMI2.IM) 

Z M ( 3 » I MN + 2 ) = 7M(3,IMN) = ZMC3.IMJ 
400 CONTINUE 
PETIJFN 
END 


75 





OVERLAY ( VHP TEX , 1 , 0) 
PROGRAM INPUT 
C ** ♦ ♦♦* 

C PROGRAM INPUT 


C 

C 

C 

c 

r 


PURPOSE READ AND ECHO USER INPUT DATA 
CALCULATE FP EF STREAM VELOCITY 

CALCULATE COORDINATES OF ALL 0 ANE L CORNER POINTS 
CALCULATE INITIAL LENGTH AND ANGLE OF PANELS ON 
THE FREE VORTEX AND FED SHFFT 


INPUT DATA CARDS (SEE ENGINEERING DOCUMENT - USER GUIDE) 


r 

r 

r 

C 

r 

r 

C 

r 

C 

C 

C 

c 

r 


OUTPUT COMMON BLOCK 

/DAT3/ - A R . NT p , X T c f MS P » Y S P » NT C » Nl. E » Y L E » NT E * Y T f , M S F 

/FSVEL/ - FSV.FSVM, ALPHA, YP ITCH, RCHORD 

/INDEX/ - •'■T ,NM , NN , N» , HZ , N P A , N l A , NNE T T , N P A NT , N7 M DT 

/MSPNTS/ - ZM.ZL 

/SOLN/ - ZA 

sub p cut i nes 

C AL LED SHEGEN.DWNET , AWNET t GWNFT 

DISCUSSION SEE PROGRAM DOCUMENT 1.3 DESCRIPTION AND Fl°W CHART OF 
OVERLAY PROGRAMS. 


C****** 


COMMON /CMC 3/NTS IN.NTSDUT ,MTGD, NP I F,NA IC 3 , N A I C, N J AC , NSC f 
COMMON/ I NOE X/NTI9) , NM ( Q ) , NN ( 9 ) , NPI 9 ) , N S ( «? ) , NC ( 9 ) , NZ ( 9 I , 

CNPA ( 10) , NS A ( 10 ) ,NCA ( 10) ,NZA ( 10) , NNETT , NPANT ,NSNGT, NCTRT,NZMPT 
COMMON /MSPNTS/ ZM( 3,1 75) , ZL( 75 ) 


COMMON /SOLN/S( 125) , Z A ( 7 5 ) 

COMMCN/FLATP/NFL T P 

COMMCN/F SVEL/FSV( 3 ) , F SVM , A L PHA t X P I TCH, P CHOP D 
c OMMCN/SYMM/NS YMM 
COMMON /ADP/PTD,DTR 

COMMON /NITF/NEUN.JT, I TM x , K I T , I Tpp I N 

COMMON / D AT 3 / A c , N T P ,XTP ( 10) , MSP,YSR( 10) ,MTC , NL E , Y LE ( 1 0 ) , 

1 NTE» YTE( 1C) ,MFS 

COMMON / I PR I NT/ I PNPUT .IPGECV, IPS IMG, I PC NTP , IP E I VC , I POUTP 
DIMENSION ILE( 10) ,ITE( 10) , YE( 15) ,ZF( 15) 

DIMENSION IDICTI 14) , IC.APOI PC) 

DATA NDICT/14/ 

DATA I0ICT/4H*ALP,4H$ASP,'*H$TP A, 4HtSPA , 4H$C EN , 4H $0 EL , 4HS AP P , 
1 4H$G0T,4H$INP,4H$FRE,4HiPI T ,4H$ITE,4H$PP I , 4H$ END/ 

C SETS MSYMM = 1 FOP AXISYMMETPIC 

C nSYVm = o OTHERWISE 

NSYMM = 1 

C SETS NELTP = 1 FOR FLAT PANEL 

C NELTP = 0 FCP CURVED PANEL 

UFLTF = 1 


C 

c. PRINTS TITLE AMD DATA CARDS 
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WRIT FI NT SCUT, 50 10) 

5010 FORMAT! 1H1//57X, *A COMPUTER PPOGR AM*/65 X f *FDP */42X , *A THPEE DIMENS 
MOKiH solution of flows over WTNGS*/4SX ,*with leading edge voptfx 
2 S S F A R A T I ON * / / / / 5 3 X » * - LIST OF INPUT DATA CARDS -*) 

NCAFO =0 * LCPP = A? 

IDEND = IDI CT ( I A ) 

10 wo I TE( NT SOUT, 5020} 

5 0?0 F0FMAT<//34X f *N0.*,4X,*CAP0 IMAGES*//! 

20 E FADINTSIN, 503 01 ICAFD 
5 : '3C POP-MAT ( 20A4) 

1 F ( E rp , NTS I N ) 40,30 

30 HC AC D = MCARD * 1 

wc IT E{ NT SOUT, 5040 I NT AR D , ICAPD 
5040 PQCMATl 3CX, I6,5X,20A4) 

IF( ICAPD, EO. IDEND! GO to 40 

!F< *-*.rD( NCAPD,LCPR i.NE.O) GO TO 20 

W? I T E ( NT SOUT , 5050 ) 

5050 PQRMATl INI » 

GO TC 10 

40 N8S P = NCAPO-3 
DO 5 0 I = I , N3SP 
BACKSPACE NTSIN 
.50 CONTINUE 

C READS INPUT VARIABLES 

6C RFADINTSIN, 5030) ICAPD 
TH EOF, NTSIN) 65,70 
65 WRITE (NTSIN, 5055) 

5055 FORMAT ( //* - END OF FILE FNCOUNTFRED - */* - END CAPO ASSUMED PROC 
l ESS INC WILL CONTINUE*) 

GO T 220 

7C DO 3 C T00=1,NDIC.T 

IF{ ! CAPD.EO. IDICT ( IGO ) ) GO TO 90 
SO continue 

W B I TE ( NTSOUT , 5060 ) ICAPD 

5060 FOP MAT (///* - THE FOLLOWING INPUT DATA CAPO DOES MOT MATCH ANY DES 
1TGNATF0 KEYWORD -*//2X,?0A4) 

S TDP 

90 GOTO ( ICO, 1 10, 120, 13C, 14 0, 150,160, 170,1 80 , l 90 ♦ 195 , 200, ? 1 0, 220 ) , I GO 
C READS ANGLE OF ATTACK IN DEGREES 

IOC R FAD (NTS IN, 5070) ALPHAD . 

5070 FOPMAT(6E10.0I 

alpha = alpha;)*otr 
GO TC 60 

C READS ASPECT PATIO - - 

UC READ (NTSIN, 5070) AP 
GO T n 60 

C READS NO. AND X COOPD. OF TRANSVERSE CUTS 

120 P FAD (NTSIN, 5C70) tcan 
NT P = TP AN 

c EAD (NTSIN, 5070) I XTP ( I ) , 1=1, N T R) 

GO TO 60 

C READS NO. AND PERCENT VALUES OF SPANWISE CUTS 
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130 READ(NTSIN,5070) SPAN 
MSP = SPAN 

P PAD (NTS IN, 50701 (YSP(I),I=1,MSP> 

GO TO 60 

C. READS NO. CP TRANSVERSE CUTS ALONG CENTERLINE 

140 P PAOCNTSIN, 5070) CTPA 
NTC = CTPA 
GO TC 60 

C SFTS CODE FOR DELTA WING PREPROCESSOR 

15° REAO(NTSIN, 5070) DUMMY 
KWPR = 1 
GO TC 60 

C SETS CODE FOR ARROW WING PREPROCESSOR 

160 B FAD (MTS IN, 50 70) OUMMY 
KWPR = 2 
GO TO 60 

C READS Y VALUES OF LEADING EDGE CORNER POINTS 

C AND SETS CODE FOP. GOTHIC WING PREPROCESSOR 

170 PEAD(NTSIN,5070) ( Y L E( I ) , I = 1 ,N TR ) 

KWPR = 3 
GO TO 60 

C READS INPUT CORNER POINTS AND INDICES FOR 

C GENERAL TYPE OF WING NETWORK 

180 F E AD ( NTS IN , 50 70 ) FN7 
NZW = FNZ 

TF(NZW.EC.MSP*NTR) C-0 TO 182 
WP I T E ( NT SOUT , 5080 ) 

5080 POP M AT ( / /* NO. OF INPUT CORNER POINTS FOR WING NETWORK IS NOT EQUA 
1L TO*/* THE PRODUCT OF NO. OF TRANSVERSE CUTS AND NO. OF SPANWISE 
2CUTS*) 

STOP 

182 DO 184 J = l , NTR 
JN = ( J-1)*MSP 
XJ = XTR(J) 

DO 183 I = 1 , MSP 

183 Z M ( 1 , J N+ I ) = XJ 

READ (NTS IN, 50 70) (ZM(2»JN*I),ZM(3»JN+l ),I-l,MSP) 

184 CONTINUE 
PFAD(NTSIN,5070) FNLE 
ML E = FNLE 

READ (NTS IN, 5070) ( YLE ( I ), I = 1,NLE) 

DO 186 I = 1,NLE 

ILF ( I) = K = YLE ( II 

YLE( I) = Z M ( 2 , K ) 

186 CONTINUE 

PEAO(NTSIN, 5070) FNT E 
NT E = FNTE 

READ (NTS IN, 50 70) ( YT E ( I ) , I = 1 ,NTE ) 

DC 188 1=1, NTE 
188 ITE ( I ) = YT F ( I ) 

KWPR = C 
GO TC 60 
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c 

r 


C 


r 

c. 


r 


C 

r 


19 C READOUTS IN, 5070) 
MRS = SFS 
c. n TC 60 

195 F c *0 ( NTS IN, 5070) 
00 T C 6 C 


2 CO F FAD (NTS IN, 50 70) 

I T M X = T M X 
GO T C 60 

210 F £ A 0 ( N T S I ►' ♦ 5070) 
T^pc-in = PRINT 
IF ( t tor IN.FQ.O ) 

no T r 60 


P FADS MO. OF SPANWISE CUTS FOR Thf F^EF SHEET 
NETWORK 
SFS 


READS X VALUE OF PITCH AXIS 
XPITCH 

FEADS MAX. NO. OF ITERATIONS ALLOWED FOR T'-'F 
NGNUNEAP EQUATIONS SOLVER 
TMX 


READS PRINTING OPTION 
PRINT 

ITPPTN = r > 


calculates free stream VELOCITY AND FOOT C*iO :; 

220 CONTINUE 

fsv( n = cns < alpha) 

FSV( 2) = 0. 
c SV ( 3 ) = SIN (ALPHA) 

F SVMaSQFT ( FSV( l ) *Z2*-FSV( ?.J**2*FSV< 3) *+2 ) 

9 CHORD = XTP(NTC) 

IF( KWPR.EQ.O) GO TO 26C 


C 

r USES PP F PROCESSOR T() GENERATE CQPNE 0 POINTS F 

C WING NFTWORK 

GO TP (230,260,250), KW°P 

C CALLS DELTA WING preprocessor 

230 CALL OWNET 

Nl c = NTS $ NT F = MSP 
NM7 = (NTF-n*M$p 
CO 235 I=L,NTF 
T TC ( I ) = NMZ + T 
2 35 CO.VTNUF 
0 0 T G 26 0 

C CALLS APPOW WING PREPROCESSOR 

26C CALL AWNET 

NL E = NT P $ NTE = NTP-NTC*-! 

,N M2 = (NTC-1)*MS? ♦ 1 

on 265 1 = 1 , NTE - . .. . 

ITE( II = NMZ + ( I — 1 ) * MSP 
265 CONTINUE 
GO -p 260 

F CALLS GOTHIC WING PREPROCESSOR 

250 CALL GW NET 

N L E = NT P s NTE = NTR-N T C+1 
NMZ = (,MTC-ll* M S° + 1 
On ?S5 I = l , N T F: 
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r> n 


NMZ ♦ ( 1-1 )*MSP 


I IF C II = 

255 CONTINUF 
C 

C SfTS UP NETWORKS INDICES 

26v NM(i) = MSP $ NN(l) = MAX 0 ( N'T C « NLE ) 

N M ( 2 ) = M.cS S N *1(2) = Nl F 

NM{3) = 2 i *JN(3) = N'LF 

NM(6) = NTC*NM<2)-1 $ NNI4) = 2 

NM(5) = 2 $ NN ( 5 > = 2 

C 

C DESIGNATES NETWORK TYPE 

NMF.TT = 5 

NT 111 = 2 S NT (2) * W $ NT(3) = 6 

NT ( (>) = 5 4 N T ( 51 = 7 

C 

C CALCULATES OTHER NET WO° K DATA 

MPA ( II = G $ NZ A(ll = 0 
DO 2 70 K= 1 » NNETT 
MP(K) = ( N M { K ) - 1 ) * ( N'N ( K ) - 1 ) 

MZIK) = NM(K>*NNfK> 

NPA ( K+ I ) = NPA( K ) +■ MP( K ) 

NZA(KM) = NZA(K) + NZIK) 

270 CONTINUE 

NZ(NNETT4-1) = 0 
N PANT = NPAINNETT+l) 

MZMPt = N7.A (NNETT + l ) 

MZ1 = NZAI2I t N Z2 = N Z A ( 3 ) $ N Z 3 = N/A(<t) 

N 7.W = N Z A C 5 ) $ NZ5 = N Z A ( 6 ) 

Ml = N m ( l ) $ M2 = NMI2) $ M3 = NM<3> 

M<+ = NM(M S M5 = NM(5) 

C 

CALCULATES COPNEP POINTS FOR FREE SHEET, FED 
SHEET AND THE ATTACHED FROZEN WAKE 

NN 1 = NNIU 
XWAKF = 50. *X T R ( NN1 ) 

IF(YWAKE.LE.IOO.O) XWAKE = 100. 

r foe netwopk no. 2 

XI = Z M ( l * M 1 ) $ VI = Z M ( 2 , M 1 ) $ Z1 = ZM(3,M1) 

CO 2 30 T = 1 * M2 
Z M( 1 ,N7 1+ II = XI 
ZM(2,NZ1tT) = Y1 
7M(3,NZ1*I > = Zl 
280 CONTINUE 

r FOP NETWORK NO. 3 

XI = ZM( itNZl + M?) $ Yl = Z M ( 2 » N7 l +M2 ) t Zl = ZM<3,NZ1* M 2> 

DO 290 1=1, M3 
Z M ( 1,NZ2+I ) = XI 
ZV<?tNZ2 + n = Yl 
ZM< 3,N7 2+M = Zl 
290 CONTINUE 

C FOR NETWORK NO. 2 

NMS = M2 - 1 
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00 3 10 K = 2 , Nt_ F 
K 1 = K— l 

NKK = NZL * Kl*M2 

CAM c.HEGFN t ALPHA ,XTP (KJ ,Yt E(K) , NVS , YE , 7 C ) 

XX - XT? IK) 

7 LFK = ZM(3,K*M1) 

00 3 CO J=1,M2 
JM = NMK + J 
7«< l , JM) = XK 

7 . M l. 2 tJ M ) = Vt'(j) $ ZM(3,JM) = 7F(J) ZLEK 
3C0 C CM T ! HUE 

f FOP NETWORK NO. 3 

NM I - nl 2 «- K M M 3 
7 M ( l , N M 7 + 1 ) = 7 M ( l t NMZ *2 I = XK 

? *' ( 2 , N >'•?. *■ 1 > = YF(M2) * ZM(3 f NMZ>l ) = ZF(M2) + Z LFK 
7 v < 2 .NM7. + 2) = Y F ( M 2 ♦ 1 1 S ZM(3 , NMZ + 2 \ = ZF(M2 + 1) * 7LFK 
3 1C C^NTINUF 

r FOP NETWCPK NO. A 

OZMA = N7 2 - M2 «. N7M8 = NZ3 + NTE - 1 

DO 320 I =2, M2 

1 M = N/M A + ; $ I M N = NZMR + I 

7 M ( l * I M N > = ZM(l.fM) $ ZM( l, IMN-+M4) = XW ARE 
2M( 2, 1MN + M4) = 7.M(2,!MN) = 7M(2»IM) 

7. M < 3 , I MN + M4 1 = ZM(3.fMN» = ZM(3,!MI 
3 2C CON T INUF 

C FOP NETWCFK NO. 5 

NZMC = NZ 3 - mj 
DO 330 1=1, M5 

[M = N 7 H C «• I $ IMN = N 74 + I 
7 M ( 1 , 1 MN ) = ZM(1,IM) $ ZM ( 1,1 MN+? ) = XWAKE 
7 M ( 2 ♦ I MN f 2 > = Z M ( 2 , I M N I = ZMI2.IMJ 
Z M ( 3 1 1 MN + 2 ) = Z M ( 3 ♦ I M N ) = Z w ( 3, T M 1 

330 CONTINUE 

r. 

r MATCHES LEADING EDGE COPNEF POINTS 

NMZ = N7 1 + 1 
CO 340 T = 2 * N L E 

I M = I»M1 $ IM.m = H M z *■ (I-1)*M2 
ZM(2,TM| = ZM( 2 » IMNI 
7 M ( 3 , l M ) = ZM < 3 » I MN ) 

34 0 CONTINUE 
r 

C SETS UP COPNEF POINTS FOP THE PAST OF 

r THE WAKf- NETWORK ATTACHED TP. WING 

O n 3 30 f - l » NT E 

T« = I Ti" I n $ I MN = NZ3 *■ I 

ZMUflMN) = ZM ( 1 , I M ) !t 7 M ( l , I MM + M4 ) = XWAKE 
Z M (?«I M N*M4) = ZM(?,IKN) = Z M ( 2 , I M. » 

ZM(3.1 W N+M4) = ZM(3,IMN) = 7M(3,!M) 

330 CONTINUE • 

r P PINTS OUT COP.NEP POINTS 
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IF ( l dimPUT.EO.O) GO TO 1040 
PPINT ic GO 

1 00 O FQPMAT { *1CHFCK T F ST PROBLEM DATA*) 
r-C 10 30 1 = 1, NN E T T 

Jl = M Z A ( I ) + 1 S J? = NZA! 1+1) 

PPINT 1010, I 

1C 10 cpcMfiTI//* NETWORK NO-.*, 13) 

POINT 1 0 2 C , (ZM( 1, J) ,ZM< 2, J) ,7.V< 3, J) ,J = J1, J2I 
1 C 2 C FORMAT! 12F10. 5 » 

1030 CONTINUE 
1040 C ON- INUF 
r 

C CALCULATES INITIAL l E NOTH AND ANGLE OF SPAN- 

C WISE SECTIPN OF PANELS F03 FFEE AND E E P SH F E T S 

0 ASSUMING NM(3) - 2 

IF ( I PNPUT.NE.C ) PPINT 1050 
1050 EOF M AT! *1 ANGLE AND LENGTH*/) 

MM? = NM<2) $ NN2 = NN ( 2 ) 

N? N = NZ ( I ) + NM( 2) 

00 3 60 J = 2, NN2 


J 2 


J-2 



JA 


J2MNM2 - 

1 ) 


J M 

= 

NZM + J2*NM2 


DP 


0 ! =2 , NM? 



I I 


1-1 



I A 


JA + l I 



T M 

= 

JM + I 1 



Y 1 

= 

ZM( 2, I M) 

$ 

Y 2 = 7 M< 2, IM+ 1 > 

Z1 

- 

7M(3. I M ) 

$ 

72 = Z M< 3 , I M +l ) 

DY 

= 

Y 2 - Y 1 

$ 

DZ = Z? - Z1 


Z L p = SQPT(DY**2 + 0Z**2) 

ZAP = A T AN? { DZ * DY ) ‘ 

ZL(IA) = ZLP 
ZA( I A) = ZAP 

IF( T PNPUT.NF.OI PPINT 1060, I A , I M, 7. A P , Z LP , Y1 , Z 1 , Y? , Z 2 ,UY , P Z 
1060 FORMAT! 215, 2E 12. 4,6 F8.3) 

360 CONTINUE 


NP? 

= NP I 2 ) S 

NP3 = NP ( 3 ) 

00 

370 1=1 

, NP3 


I A 

= NP 2 + 

I 


JM 

= MZ2 + 

(2*1 + 1) 

YL 

= ZM( 2, 

I M) 

.$ Y? = 7 Ml 2 , IM+l ) 

Z I 

= ZN( 3, 

If*) 

% 22 - Z M ( 3 , I M + 1 ) 

0 Y 

= Y2 - 

Y l 

* D7 = 7? - Zl 

ZLP 

= 5GPT ( DY**2 ♦ D 7 ** 2 ) 

ZAP 

= A T AN? ( DZ * 

DY ) 


7L ( I A) = ZLP 
Z A f T A ) = ?. A P 

IF! T PNPUT.NF.3 ) PPINT I06C, IA,I^,ZA p ,ZLP,Yl,Zl,Y2,Z2, r Y,rZ 
37 0 CONTINUE 
F«=TUPN 
END 
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o o r> :**) r> o -> ') o ■*> r> -v o o o o n •-> o n o n 


SUSP CUT 1 NE 
C ***♦*£ 


A WN E T 


SUBROUTINE awngt 

PUPPCSc TO CALCULATE THE 
IN AN ARROW WING 


COORDINATES OF ALL PANEL 
P LANE OEM CONE I GUP AT l ON 


CORNER POINTS 


INPUT COMMON BLOCK 

/DAT3/ - AP ,NIP ,XTc t MSP , YSP ,N'TC 

OUTPUT COMMON BLOCK 

/DAT}/ - YIEtNTF 
/mpp NTS/ - ZM 

SUB"' CUT I NE S 
CALLFD Swr-PTF 


DISCUSSION THE Y COOFDINA T FS OF the PANEL CORNER POINTS A T the 

INTERSECTION OF THF LEADING FDO c AND TRANSVERSE CUTS A P F 
COMPUTES BY MULTIPLYING THE X VALUE OF the TRANSVERSE CU 1 
BY ONE-FOURTH THE ASPECT RATIO. 

THF Y COORDINATES OF THE PANEL CONNER POINTS BETWEEN 
THE LEAD IMG FOGE AND ROOT CHORD ON THP T P A N S V F P S r CUTS 
A»E COMPUTED BY MULTIPLYING ThE Y COORDINATE AT THF 
LEAPING EDGE Rv THE APPAy OF P FR <" ENT VALUES YSP. 

SUBROUTINE SWE°TE IS CALLED TO CALCULATE THR Y 
COORDINATES OF ALL PANEL POINTS AFT OF THE PHOT CHORD. 

THE X COORDINATES OF THE PANEL CORNER POINTS A c F t h( t 
X VALUES OF THF TRANSVERSE CUTS INPUT BY THE USER. ALL 1 
COORDINATES ARE SET TO 7 c PO. 

r ***«#* 

C-OMMCN/MSPNTS/ ZM( 3,1 7 5 1 , 7. L ( 75) 

C hmmC m /DAT3/AP, NTR ,XTP I 10 ) , MSP , YSP ( 10 ) ,NTC,NLE,YL C ( 10 ) , 

1 NTF, YTE( 10) ,NFS 

DIMENSION YWI 10) , XV | 10* 10) 
r F I NOS D ( = S/X) 


D = AP/4. 


OBTAINS COPNEN PO!N T S COORD. FOR THF UPPER PA=?T 


10 


xi = x tp m 

YLE< 1) = 0 ♦ X 1 

DO 10 1=1, MSP 

?M( 1 t I) = XI 

/ M < 2 , I ) = Z M ( 3 » I ) = c. 

CONT INUE 

DO 3 C J = 2 , N T R 

JN = I J— 1 ) ^MSP 

X J = • XTp ( J ) 

SEMI = 0*XJ 

YLF(J) = SEMI 

DO 2 C 1 = 1, MSP 

?M( 1 , JAM- I) = X J 

?M( 2 , J NM I > = SEM r*YSP ( I ) 
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20 ZM( ? ,.JN* I » = r '. 

30 CONTINUE 

r OPTilNS C OF N E 0 P C I N T S COORD. FOR THF LOWER PAR T 

c WITH SWEPT TEARING EDGE 

KT1 = f.'TC-l 
MTF = N'T P - K T 1 
00 40 T=1*NTF 

ylmkti + ii = n*xTMKTi*n 

40 CONTINUE 

N M7 = K T 1 SP 
DO 50 J=1»*>$P 
YWIJ) = ZMI2.NMZ+J) 

50 CONTINUE 

CAI.L SWEPTE (XTR(NTC) , YLE (NTC JfNTE. YW,MSP,XY) 

N T F 1 = MTF- I - 
nn 60 J»1.NTE1 
JM = NMZ ♦ J 4 M S P 
XJ = X TP ( NT C + J ) 

DO 60 I = lt^SP 
T M = JM + I 
ZM( I ,IM> = XJ 
Z M < 2 , T M ) = XY( It J) 

ZM(3«IH) * 0. 

60 CONTINUE 
P E T U F N 
END 
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noon o o o o o o n o o o 


SUBPOUT INF OWN FT 
C ****** 


r 

C 

r 

c 

c 

c 

c 

c 


SUBROUTINE OWN FT 


PUFPCSE T P CALCULATE THE COORD I MATES OF ALL PANEL CORNER POINTS 
IN A DELTA WING PLANFGF-* GONE I GUP AT I ON 

INPUT COMMON BLOCK 

/ D A T 3 / - A P « MTp t X T p , MS P 


OUTPUT common block 
/DAT!/ - YLE 
/MSPMTS/ - ZM 


$ UBRCUT I NFS 
CALL FO NONE 

DISCUSSION THE Y COOFOINATFS OF PANEL COFNER POINTS A T THE 

INTERSECTION np THE LEADING EDGE AMD THE TRANSVERSE CUTS 
AFF COMPUTED BY M'J LT IPLY TNG THE X VALUE OF THF TRANSVFPS 
CUT BY ONE FOURTH THE ASPECT RATIO. 

THE Y COORDINATES OF THE PANEL CORNER POINTS P r T w F p M 
THF LEADING FDGE AMD R OC1 T Chocq ON THE TRANSVERSE CUTS 
APE COMPUTED PY MULTIPLYING tup y COORDINATE AT Th? 
LEADING EDGE BY THF ARRAY OF PERCENT VALUES YSP. 

C THF X COORDINATES OF THE PAN'RL CO? ME® D OIMTS ARE THF 

C. X VALUES OF THF TPAN.SVEPSF CU T S INPJT BY THE USER. ALL 

c z coordinates are sft to zero. 

c ****** 

COMMCN/MSPNTS/ ZM( 3, 1 75) tZL( 75) 

COMMON /DAT 3 ZAP , NTF , XTR C 10 ) , MSP * YSP ( 1 0 ) »MTC , N L F ♦ Y LE ( 1 0 ) , 

1 . NTF » YTF ( 10 ) » MF S 

C FINDS 0 ( = S/X) 

D = AR/4. 

C OBTAINS CORNEM POINTS COOFl). 

XI = XTP ( 1 ) 

YLF ( 1 ) = D*X l 

DO 10 1 = 1, MSp 

Z M ( 1 , II = XI 

Z“(2 ,1 ) = ZMI3, I ) = C. 

10 CONTINUE 

00 30 J = 2 » N T p 
JN = (J-l)*MSP 

X J = XTR (J) ....... 

S C MJ = 0*XJ 
YLE(J) = SFM I 
DO 20 r=l,MSP 
Z M ( l , J N>T ) = X J 
Z V (2,JM+I) = SFM i * YSP ( 1 1 
20 Z M ( 3 ,JN+I ) = G. 

30 CONTINUE 
PFTUPN' 
end 
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O rk o n r> o o o n o o o o o n o n o o 


SUBROUTINE GW! FT 

C <=*$ **# 

C SUBROUTINE GWN E T 

C 

c PU C D rSE TO CALCULATE THE COORDINATES OF ALL PANEL CORNER POINTS 

C IN A GOTHIC WING PLANFORM CONFIGURATION 


r 

C 

r 

C 

r 


INPUT CON WON BLOCK 

/ D A T 3 / - \'TR,XT°,MSP,YSP,NTC ,YLF 

OUTPUT COMMON BLOCK 
/DAT3/ - NTE 
/MSPNTS/ - ZM 


S UB P CUT I ME S 
CALLED SWFPTE 


DISCUSSION THE Y COORDINATES OF PANEL CONNER POINTS AT THE 

I N TE C S EC T I ON OF THE LEADING FDGF AND TRANSVERSE CUTS AR c 
INPUT BY THP U'FP. 

THE Y COORDINATES OF PANEL CORNER POINTS BETWEEN T HR 
LEADING EDGE AND T POT CHORD ON THE TRANSVERSE CUTS APE 
COMPUTED BY MULTIPLYING THE Y COORDINATE AT THE LEAD I'NG 
EDGE SY THE AcCAY OF PfPCfNT VALUES YSP. 

SUBROUTINE SWFPTE IS CALLED TQ CALCULATE THE Y 
COORDINATES CF ALL PANEL POINTS ART 0 F THE ROOT CHORD. 

THE X COORDINATES np THE PANEL CORNER POINTS Ap E ThE 
X VALUES OF THE TRANSVERSE CUTS INPUT BY THE USE C . ALL 
Z COORDINATES ARE SFT TO ZERO. 

$*** 

COMMON /MSPNTS/ ZM ( 3 » 1 75 » , Z L < 75 » 

COMMON /DA T B/APtNTR,XTp ( 10 1 , MSP, YSP { 1C ) , NTC , NL 6 , Yl E ( 1 G ) , 

1 NTE , YTE I ID ) » MF S 

DIMENSION YW( 101 »XY( 1C» 10) 

OR T AINS CORNEN POINTS COO 0 0. FOR THE UPPEP PART 

X 1 = XTR ( 1 ) 

DO ID 1=1, MSP 

7 . m u , n = x : i 

ZM( 2 » I ) = 7 M ( 3 » I ) = 0. 

10 CONTINUE 

DO 3C J=2,NTR 
JN = (J-L)*MSP 
XJ = XTRIJI 
SEMI = yi.E( J) 

DO 20 1=1, MSP 

Z M ( 1 , JN+ I ) = XJ 

Z m ( 2 , J N+ I ) = REMI*YSP(I) 

20 ZV( 3 , JN+ I ) =0. 

30 CONTINUE 

OBTAINS CORNER POINTS COORD. FOR THE LOWE 0 PART 

WITH swe pt trailing edge. 

kt i = ntc-i 
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NTF = N T R - KT 
VM.7 = KTl^MSP 
pr. J=1 ,msp 
VW(J) = 7 M ( ? » N M Z + J ) 

50 CONiTJWUF 

CALI. SWFPTF (XTR(NTC) ,Yl£{NTC 1 , N TF ♦ Y W , p , y Y > 
NT c l = N T £— 1 
DO 6C J = 1 , N TE 1 
JF = NMZ + J*MSP 
V J = X T c ( NTC + J ) 

DO 60 1=1, MSP 
T w = j y. ♦ i 
Z M ( 1 , I M I = XJ 
ZM(2 f IV) = XY( I, J) 

Z M n , I M ) = 0 . 

6" CONTINUE 

- F TIJPM 
END 
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c** 

r 

r 

r 

C 

c 

c 

r 

C 

c 

c 

c 

c 

c 

r 

c 

r 

r 

C 

c 

r 

r 

c 

c 

c 

t 

c 

c 

r 

w 

C 

r 

C 

c 


SUB? GUT INF SHEGEN( ALPHA, XtStNfY,Z) 

SUBROUTINE SHE GEM ( Al PHA , X , S , N, Y , 7. 1 

PUBPCSF TO PROVIDE AN l N I T I A L GUESS OF THE FREE AND FED SHEET 
GEOMETRY A t A PAPTTCULAR transverse cut 

INPUT CALLING SEQUENCE 

AL p HA - ANGLE OF ATTACK n F T H? WING (IN RADIANS) 

X - X COORDINATE hf TRANSVERSE CU T (APEX IS X=D.G) 

S - Y COORDINATE PE LEADING EDGE ON TRANSVERSE CUT 
N - DESIRED NUMBER OF F 5 E E SHE FT PANELS IN TRANSVERSE CUT 

OUTPUT CALLING SEQUENCE 

Y - v COORDINATE CF CORNER POINTS DEFINING SHAPE OF 
FREE AND FED SHFFTS ON GIV C N TRANSVERSE CUT 
l - l COORDINATES CF CORNER POINTS DEFINING SHAPE OF 
F3FE AND FED SHEETS ON GIVEN TRANSVERSE CUT 

SUG ROUTINES 
CALLED NONE 

DISCUSSION THF ROUTINE COMPUTES AN- INITIAL GUESS OF THE EPEE' AND 
EEC SHEET GEOMETRY AT A PARTICULAR TRANSVERSE CUT. (SEE 
STARTING SOLUTION SECTION OF ENGINEERING DOCUMENT Fo c 
METHOD) POINTS DESCRIBING THE CURVES OF FIGURE 17 APE 
STORED IN THE ARRAY Y7. V A L . EACH CURVE FE PRESENTS THE 
FP R E AND FFO SHEE t GEOMETRY FOR ONE OF EIGHT VALUES CF A. 
POINTS DESCRIBING THE FRFF AMD FED SHEET GEOMETRY FOE AN 
ARBITRARY VALUE OF A ARE OBTAINED BY LINEAR INTERPOLATION 
(OR EXTRAPOLATION). LINEAR INTERPOLATION IS THEM EMPLOYED 
ON THIS NEW SET OF POINTS TO CONSTRUCT A R EPP E SEN T A T f ON 
OF THE EPEE SHEET BY t HE NUMBER OF POINTS SPECIFIED IN 

THE INPUT DATA. 


C *** 

DIMENSION Y ( N ) ,7(NI 

DIMENSION AVAL (3) v vzV4L(2*9,8)fYZ(2'9) t Q(R) 

C SOT NUMBER OF Y-Z CURVES AND NUMBER OF POINTS 

C REPRESENTING EACH CURVE 

DATA NA,NP 73,9/ 

C VALUES OF A FQR EACH CURVE 

DATA AVAL / . 2 , . 6 , l . » l . 4 ♦ l . 8 » 2.2 * 2 .6 , 3. 3 / 
r VALUES OF Y AND Z FOP POINTS ON CURVES 

DATA YZVAL 7 

C I. , 0 . , .99 3, i02, . 93, . C45, .96 3 , .0 7, .94, .088, .92, .097, .897, .097, 

C. 878,. 09, .89?, .05, 

Cl . ,9 . , l.C 1?, .0 33,. 998,. 098, .973, . 1 54 , .9 2 , . 224 , . 8 5 3 , .2 68, .79, 

C . 277 ,. 74, .269, . 789, . 146, 

Cl. , 0. , 1. 03,. C47, 1.02 8, .1 34,1. ,.23?, .9 58 ,.314, .87, .403, .764 , .44 5 , 
C. 687, .44, .708, .246, 

C L. ,0 ., 1.046 , .06 , 1 .06, . 166, 1 .039, .29, .99, .40 8, . 89, .53, . 765, . 58, 

C .68, .587, .666, .33, 
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Cl. , 0., 1 .C61 ,. 0 7, 1 .08 7,. I 88, 1.C76,.339, 1.01 9,. 502, .924, .6 24, .812, 
C. 6 89,. 704,. 703,. 6 5,. 398, 

C 1. ,0., 1.075,. 08, 1 .112, .222, 1 . 11, .392, 1.C55..565, .96, . 7,. 94*, .7 70 , 
C . 735 ,. 8 » .644, .454, 

Cl.,0. , 1.09, .09, 1. 14, .25 2,1. 1 4 2, .435, 1. 09 5, .617,1. 00 8, .756, ,S 77, 

C. 85 8,. 77, .882,. 645, .5, 

Cl . ,0 ., 1. 107,. 0 9 9, l. 16 2, .277, 1 .172, .469, 1. 132, .647, 1 .05,. R , .903, 

C. 92 2,. 80 5, .55, .648,. 541 
C/ 

r COMPUTE VALUE OF A FF0M INPU T OAta 

A = A L PH A * X / S 

SELECT TWO DATA CURVES FOP USE IN INTERPOLATING 
(OP EXTRAPOLATING) NEW CURVE F QP COMPUTED VALUE OF A 
DO 1C K=2,NA 
L - K — 1 

T F ( A .LT.AVAL(K) I GO TO 12 
10 CONTINUE 

1 ? OFI ta= I A -AVAL ( L ) ) / ( AVAL! L + l )- AVA L ( L ) ) 

CALCULATE POINTS DESCPIBING CURVE FOR COMP !J T El) 

VALUE OF A 
2 C 1 = 1,2 
DC 20 J = 1 * N P 

20 Y7 ( I , J ) = Y7VAL ( I , J ,U +DELTA* ( VZVALI I , J,L<-1 ) - Y7VAL ( I , J, L ) ) 

SET INITIAL POINT ON FREE SHEET 
Y< 1) = YZ( 1, 1) 

.7 ( 1)=YZ(2,1) 

GET LAST POINT ON FREE SHFET 
(AND INITIAL POINT ON FED SHEET) 

Y ( N l ) = Y Z ( l,NP-l) 

7 ( N + 1 ) = Y 7 (2,NP-l ) 

SET LAST POINT ON FED sheet 
Y ( N+2)=YZ ( 1 ,NP) 

Z( N4-2) = YZ ( 2,NP ) 

D ( 1 ) =C . 

NPM l=NP-l 

CALCULATE DISTANCES BETWEEN POINTS ON NEW CURVE 
On 30 I =2, NPM 1 

D ( I ) =0 ( l — l ) ♦SORT { ( YZ ( 1 , 1 )-YZ ( 1, I-l) )**2M YZ(2, I)-YZ(2, 1-1) »**2) 

30 FONT IN UF 

DIST=r>(NPMl )/FLOAT(N) 

linfaply interpolate ofsiffd numrfc of POINTS 
E CP EPEE SHEET P EPF ES ENT ATTpN 
DO 4C I = 2 * N 
DIS=FLOA T ( I— il^DIST 
DC 3 5 J = 2 ,-NPMI. 

K = J— 1 

IF (OIS.LT.Ot J) ) GO to ?.8 
35 CONTINUE 

38 0FL t A = < DIS-i)(K ) ) / ( 0 ( K + l ) — D ( K ) ) 

Y ( I ) =YZ ( 1 ,K ) +DELT A*( YZ ( 1 ,K>1 )-YZ ( l , K. ) ) 

7 ( I ) =Y7 ( 2 , K ) +DEL T A* ( YZ ( 2 , K+ 1 ) — Y Z ( 2 , K ) ) 

40 C 0N T INUF 
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N2 = N + 2 

C SCAIF POINTS TO ACCOUNT FOP MAGNITUDE OF LOCAL SEMI-SPAM 

On 5 0 I = 1 1 N2 
Y ( T I = Y|II*S 
Z( n = 7 (I)*S 
50 CONTINUE 
FCTUFN 

FMO 
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SUPS CUT I N6 
C SUBROUTINE 


SWEPTE<X,S,N,Y,M,Yp) 

SWEPT £ 


C 

r 

C 

C 

C 

C 

C 

C 

c 

C 

C 

r 

C 

r 

r 

r 

r 

C 

r 

c 

c 

r 


PURPOSE TO CALCULATE THE Y COORDINATES O r THE PANEL C O c NFR POINTS 
AFT OF THE ROOT CHORD FOR SWEPT TRAILING EDGE DESIGNS 

INPUT CALLING SEQUENCE 

X - ARRAY OF TRANSVERSE CUT X VALUES STARTING WITH THE 
LAST CUT THAT rNTFP$£CTS THE ROOT CHORD 
S - ARRAY OF V C.OOPDTMATES of t he leading 6DGF r* : THE 
TRANSVERSE CUTS SPECIFIED by X 
N - NUMBER Of TFANSYSPSE CUTS AFT OF THE LAST TRA^SVEPSE 
CUT TO INTERSECT THE PHOT CHORD PLUS ONE 
Y - ARRAY OF Y COORDINATES OF PANEL CD C NE D POINTS LYING 
ON T H fr LAST TRANSVERSE CUT THAT INTERSECTS T HE 0 C. 0 T 
CHORD. 

M - NUMBER OF SPANWISF PERCENT VALUES INPUT BY THE IJ R F R 
OUTPUT CALLING SEQUENCE 

YP - APR AY OF Y COORDINATES OF PANEL CORNER POINTS A F T 
THF ROOT CHORD. 


SUBROUTINES 
CALLED NONE 


r 

C. 

c. 

r 

c 

c 

r 

c 

c 

c 

c 


DISCUSSION GIVEN THE COORDINATES OF Tyjn POINTS DEFINING A LIN C 
AND ONE CDORniNATF OF \ THIRD POINT ON THF LINE, THE 
UNKNOWN COOP 01 NATE OF THE THIRD POINT CAN BE CALCULATED 
BY T<? I ANGULATION. 

ONE OF THE POINTS DEFINING THE LINE IS LEADING F P f» F - 
TRAILING EDGE INTERSECTION of. i NT. THF 0 T HE c PPI'*T I S THE 
PANEL CORNER POINTS LYING ON THE LAST TSANiSVFFSF CUT THAT 
INTERSECTS THE ROOT CHORD. 

THE X VALUE up THE THIRD POINT IS THE VALUE OF THF 
TRANSVERSE CUT. 




DIMENSION X ( 1 I ,S< n ,Y( l) ,YP( 10, 1 » 
OX = X ( N ) - X ( l ) 


N 1 = N - 1 

I F ( N .E.Q . ? ) GO TO 15 
DO 1C J = 2 , N 1 

xx = x ( j ) - x m 

ji = j - l 


DU 1C 1=1, M 
YS = Y ( I J 

TM = ( S ( N ) - Y S ) / DX 
V P ( r , J l I = TM 4= X X «■ YS 
10 CONTINUE 
15 C 0N T INUF 

DO 20 1=1, M 
20 Y P ( I , N 1 ) = S ( M ) 


RETURN 

C ND 


BOEING NO. D6-41.780 
PAGE 134 
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OVERLAY! VORTEX, 2, 0) 
PROGRAM AICGEN. 


C ***** * 

C ppnOFAM 

C 

C PUPPCSE 

r 

r 

C 

r 

r input 

c 


AICGEN 


TO CALCULATE ESSENTIAL GEOMETRY INFORMATION FOF FACH 
PANEL AND the LOCATIONS OF DOUBLETS AND CONTROL POINTS 
FOP EACH NETWORK AND TO GENERATE THE AFRODYNAMICS INFLUEN 
-CF COEFFICIENTS USING AN ADVANCED PANEL-TYPE METHOD 

COMMON BLOCK 

/INDEX/ - NT t NM,NN,NP, NZ » N PA, NZ A , NNET T , NPANT , NZMPT 
/ M I T F / - NFUN 

/IPRINT/ - IPGEOM, IPSING, I PCNTPtIPEIVC 


OUTPUT COMMON BLOCK 

/CV03/ - NPIF,NAIC3,NA If. 

/BOYCS/ - 7C*ZCC, ZCP ,ZOC , IPC, ITC 
/INDEX/ - NS,NC,NSA,NCA f NSNGT,NCTPT 
/NT NDX / - NEO.MJCt I JC 
/I CONST / - P I » P I 2» P I 41 


SUBROUTINES 

CALL FO TGEOMCt TSING.TCNTF L , EDG F I N, KSPFT , PTRN S , I PTPNS , V I NFC C , V I P 

DISCUSSION SEE PROGRAM DOCUMENT 1.3 DESCRIPTION AND FLOW CHART OF 
OVERLAY PROGRAMS 

*** 

CCMMCN /CMC 3 /NTS IN * NTSOUT , NT GD » NP I F , NA IC3,N4IC,NJAC,NSCF 
COMmqn/BOYC S/ZC( 3,125) ,ZCC( 3,125 ),ZCR< 125), ZOC< 12 51 ,IPC< 125) , 

1 ITC* 125} 

CCMMCN/ INDEX /NT (9 ) , NM ( 9 ) , NN ( 9 ) , N P { 9 ) » MS ( 9 ) , N C { 9 ) , NZ ( 9 ) , 

.fNPA( 10) , N S A ( 1C) * NCA ( ICI,NZA< 1C) , NNFTT, NPANT, NS NGT,NCT R T,N7 Mp T 

COMMON /P ANDQ/CPI 3,4) , P C I 3 ) ,FC(3)»AR( 3,3) , APT (3*3) , p ( 2 » 4 ) ,A,8,DIAM, 
CC (6,6) , AST( 6 , 16 ) , I IS (16 ) , INS , IT S,NPDO 
COMMON /NINOX/MFP ,NJC ( 125 ) , I JC( 125) 

COMMON /P!NC/DVDFS(3, 125) 

COMMON /P I NDX/KP , KQ, NFWR , NPC 0 
COMMON /KFAJ/NEQ,NF,NG 
COMMON /NITF/NFUN* JT , I™X , K IT, I TPFIN 
COMMON /zip/ipz, IP.ITZ.JC2 

COMMON/ I CON ST/ PI , PI 2, PI 4 I 

COMMON / IPP INT/I PNPUT , IP CFO m, TPS INC, I PCNTP , I Pf t VC, I POUTP 
DIMENSION A TC( 125) 

SETS CONSTANTS PI, ETC. 

PI = 3. 1415 926535 397931 
°I2 = 2.*PI 
P I 4 I = 0. 25/PI 

CALLS ROUTINE TO GENERATE ESSEN TAIL GEOME- 
TRY INFORMATION FOR EACH PANEL OF ALL 
the NETWORKS 

KP = 0 
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f 

r 

r 

r 


c 

r 

r 

C 

c 


r 

r 

r 


C 


PFWTN'D ,\P!F $ MPW 3 = N P I F 

CALL TGFO w C 

CALLS POU T IME TO OF S IGN AT E THE L PC A T I ON PF 
DOUBLETS ON ML NETWORKS PANELS AND T D 
COMPUTE THc matrix ~ O 3 COE C F l C I K V T S fF 
COUPLET D ISTP I3UT IPN FOR EACH PANEL 

K.O = 0 

REWIND NPTF S NPPH = N P IF 
K p = 0 

RfWINO MTf.D S NPWR = NT OD 
CALL T S C NO 

CALLS POUTTNF TO DESIGNATE THE 1C CATION J?‘ 
CON T ROL P Q I N T S «=op ALL N'T«JRK PAM = l c AND 
to fovpyr c THF UNIT NORMAL VECT 0° AND TH- 
NORMA L. COMPONENT OF F«EE STREAM VRLC’C I T v 
vector at f v c 3 y control point 

ko = c 

. REWIND NTOD $ NPFf) = NTGO 
CALL T CN T ?L 

TH FFapr.ANGF INDICES S n THAT THOSE CON- 
T 0 PL POINTS AMD DOUBLETS AT EDGES O' NET- 
WORKS PRECEDE ALL TmE OTHERS 

CALL ECGFIN 

CALL K SCST ( 7C, T.NCTRT ,NJC, DVDFS » 

CAL L • KSOPT ( ICC » 3 , NC TP T , M JC , D VDF S J 
CALL KSORT ( 7.CR» l .NCTbt,k.jc , a IC) 

CALL K S C 3 T ( 7 DC , 1 »NC T R T , V JC,AIC) 

CALL KSPRTf I °C t 1 t NC T R T f N J C • A !C) 

CALL KSCPT( ITC, L.MCTPT^.JC, AIC) 

KO = 0 

®EW INC NTOD S NPRD = N T G C 
KP = 0 

REWIND N P I F i NPW® = NP IF 
DO IDO T P= 1 , NP ANT 
CALL PTRNS(IP) 
on 5 C 1 = 1, INS 
IS * I I S ( T ) 

5 0 list ri = NJC< I SI 
CALL IPTPNS(IO) 

100 CONTINUE 

I F( NFUN.FC.C > GO TO 50C 

T 0 SKIP A I C CAl.CUL AT iqnj if NFUN.NE.O 

00 0 CO JC = r.NCTRT 

!F( TTC( JCJ.EO.II 7CPIJC) = C. 

300 CONTINUE 


GO TC 900 

C GFNERATES AIC MATO IX 

500 CONTINUE 
C PRINT 3 r.ni, JT 

C3001 FORMAT ( //* I TF° AT I ON MO. * , I A, 5X , *NEW AIC MATRIX GENERATED*) 
REV: I NO MAIC3 
REWIND NAIC 
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I F C IPEIVC.NF.O) PPTNT 1003 
1003 FGP*i*T( *1FP0M FIVC*/1 
JPC = C 

nn 7CC JC=1,NCTCT 
! P Z = IPC(JC) 

ITZ = ITC(JC) 
jr.r = jc 

IP( ITZ.FO.l ) ZCR<JC> = 0. 

CALL VtNFCC (ZC( 1 , JC) ,7CC ( 1 , JC ) , ZOC( JO . JPC > 

W c T T F ( N A I C3 ) DVOFS 
OH fcSO T S = 1 t NSNGT 

CALI V IP (ZCC ( l, JC ) , l f DVDF S ( l,IS),l,3 f MCUSM 
650.CGNT INUF 

WF t T F { NIA I C ) Arc 
7CC C. G N T I N U F 

C CALCULATES NUVOE c OF EGUATIQMS F OF E, 

NFO = N F 0 
Nf = NSNGT - NFQ 

00 = NP<2> 

<5 00 F F Ti JPN! 

FtyjO 


f and g 
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SUBRCUT INF CCAL(P,C) 

C ****** 

SUBROUTINE CCAL (P,Cl 

PlJ° PC SF TO CALCULATE FOP F ACH PANEL THE QUAOP 1 L A7 ER A L MOMENT 
INTEGRALS USED IN The COMPUTATION OF THE SOURCE AND 
DOUBLET FAR FIELD VELOCITY INFLUENCE COE F* I C I EN T S . (SF C 
SECTION B .4 , APPENDIX B OF THP ENNGlNEtF INC, nPC"M c MT.) 

INPUT CALLING SEQUENCE 

P - COOP 01 NATES OF FOUR CORN c R POINTS OF QUADRILATERAL 

OUTPUT CALLING SFQUFNC F 

C - ARRAY QF MOMENT INTEGRALS 


SUBPCUTINES 
CALLED FCAL.7EP0 

DISCUSSION THE ROUTINE COMPUTES THE QUADRILATERAL MOMENT 

INTEGR ALR C ( M,N ) = T ( $ TGMA,K SR** (M-l ) *ET 4**{ N- l > ,DKSF*DFT A) 
FOR M = 1 , M X Q AND N= 1 , MXQ-M* 1 . A DESCRIPTION OF THE 
CALCULATIONS PERFORMED IS CONTAINED IN SECTION B.4 OF 
APPENDIX B OF THE ENGINEERING DOCUMENT. THE RELEVANT 
EQUATIONS APE 0.93) THROUGH IB.1C2). THE RELEVANT 
PROCEDURE IS PROCEDURE 6. TmF CODE CLOSELY FOLLOWS THR 
DEVELOPMENT AND NOTATION OF THIS PORTION OF APPENDIX p. 

* * 

DIMENSION P ( 2, 4 ) ,C(6,M 

C CMMCM/ SK A I C2/ R l ( 2)»F2(2)tDP(2)»E(7)»GA.I6»6)» O'JMSI 241 ) 

EQUATIONS AND PROCEDURES REFERENCED IN THIS °OUTInE 
ARE CONTAINED In APPENDIX B OF ENGINEERING DOCUMENT 

SET (?PDEP OF MOMFNTS DESIRED 
MX 0=6 

mvqp \=mxQ+I 
CALL ZE p C(C»MXQ*MXG| 

C CYCLC THROUGH SIDES OF quadrilateral 

GT SOD I S = 1 » 4 

C EXECUTF PROCEDURE 6 

I SP 1 =MGD ( IS ,4) + I 

C calculate geometric QUANTITIES associated with 

C SIDE OF QUA DP- I LATERAL 

DO SC 1=1*2 

R I ( I ) = P( I. IS) 

R 2 ( T ) = o< I , I S PI > 

50 DPI I > = R2< I )-PL ( I ) 

D r MS=DR ( 1)*DR( 1 ) +DF. I 2 ) *DR I 2 ) 
lF(OP«S.FQ.O.) GO TC 500 
A = R 1 ( 1 )*R2{ 2 )-R l ( 2 ) ♦R 2 ( 1 > 

C BRANCH to PROCEDURE (6. A) OP (6.3) 

IF! APSID3I1) l-ABS I DP I 2) ) ) ICC, IOC, 200 
100 Al = nc< 1)/DP (2) 
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A 2= A/ OP (2) 

r PROCEDURE (6. A. I) 

CALL EC4L(P l( 2) .32(2) t l.« 1. .E.flXGPl I 
DO L 3'"' N=L.MXO 

130 GA( 1 ,K) =A2*E( N+l > /FLOAT ( N) 

1F{ MXC.LT.2 ) GO TO 300 

C PROCEDURE (6.A.U) 

DC 170 M=2.MX0 
MV|g=^xC-M+l 
on 170 N= 1 « MXN 

170 Gft ( M ,N) =A1*GA( M-l ,NH ) +A2*GA( M- l, N ) 

GO TC 30 0 

2 C 0 Al=Q3( 2) /DP ( H 
A 2 = A /OP ( 1) 

0 PPDCFDUFE (6.S.TI 

CALL FC A L ( P 1 ( 1 ) » R 2 ( I ) * 1 • . I • . E * MX OP 1 1 
DO 220 M*l.MXO 

230 G A ( M . ii=A2*E(M+i ) /FLOAT ( M) 

TF(mxc.LT.2) GO to '30 0 

C PPOCEDUF E ( 6.B. I I ) 

m 2 70 N*2,MX0 
m vy= i*x 0— N+ 1 
DC 2 70 v = 1 » MyM 

2 70 GA ( M f N ) = A1*GA( M + l ,N-1 >-A2*G A ( M, N-l ) 

XOG CnMINiJE 

f PEP FORM ACCUMULATION OF EQUATION I R . 9A I 

DO 40 n Msl.vXQ 
MXM=yXQ-V+l 
DO 40C N=1.MXN 

4-00 C ( M = c ( M, NJ+GAI M. N) /FLDAT( y+N ) 

500 CONTINUE- 

900 FFTURN 
FND 
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Simp CUT INF C0NT3L(NT,NM,NN,NCtNPA,ZM,ZCtZCC t ZCP,Z.DC, t^C, ITC) 
C ***$*« 


C SUBROUTINE CONTRL<MT,N«,NN,NC,NPA,ZM,ZC,ZCC t ZCR,ZDCt I°C, I T C) 


C 

C 

r 

r 

r 

r 

C 

r 

C 

r 

C 

c 

r 

C 


P U - P C S F TO CO^PUTF CONTROL POINT DEFINING QUANTITIES FOP EACH 
NETWORK 

INPUT CALLING SFQUFNC E 
N T - NETWORK TYPE 

•N y - NUMBER OF SPANWISr CUTS IN THE NETWORK 
nn - numbed of transverse cuts in the network 

NPA - TOTAL NUMBER OF PANELS IN ALL PREVIOUS NETWORKS 
Z M - COORDINATES nc CORNER POINTS OF THE NETWORK 

COMMON BLOCK 
/I PRINT/ - I PCM TP. 

/FSVEL/ - FSV 
/PANDO/ - PC 


0 

C 

r 

r 

C 

C 

r 

r 

r 

C 

r 

C 

r 

r 

C 

C 

r 

r 

r 

r 

C 

c 

c 

c 

c 

r 

C 

C 

c 


OUTPUT CALLING SEQUENCE 

NC - NUMBER OF CONTROL POINTS ON THE NETWORK 
ZC - COORDINATES OF CONTROL POINTS ON NETWORK 
ZCC - SURFACE NORMAL VECTOR AT CONTROL POINTS 
ZCR - NORMAL COMPONENTS OF FPEESTRfAM VELGCITY 
ZDC - RELOCATION DISTANCE OF CONTROL POINT 
IPC - SEQUENCE NUMBER nc panel TO WHICH CONTROL POINT 
BELONGS 

ITC - NETWORK EDGE CONTROL POINT INDICATOR 

SURF- CUT I NES 

r ALL ED GCPCAL , GRDINP, PTPNS , SUP PRO» MMULT 

DISCUSSION T HE ROUTINE CAICULATFS Quantities ASSOCIATED WITH the 
CONTROL POINTS «NO BOUNDARY CONDITIONS OF THE °ROBL c m. 
SEPARATE COMPUTATIONS A 5 F PERFORMED FOR EACH NETWORK 
TYP E . 

FIRST THE CONTROL POINTS (POINTS AT WHICH THE 
BOUNDARY C UNO I T I CNS APE AP°L IF D) ARE LOCATED. THIS IS 
DONE BY AVERAGING CERTAIN COMBINATIONS OF CORNER POINTS 
AND THEN PROJECTING THE RESULTANT POINTS ONTO THE PANEL 
SURFACES. THOSE CONTROL POINTS LOCATED ON A NETWORK FOG 
APE WITHDRAWN SLIGHTLY FROM THE EDGE AND NOT PROJEC TFD 
ONTO THFIR PANEL SURFACES TO AVOID NUMERICAL DIFFICULTY 
LATER. THE CONTRGL POINTS AR F ORDERED AND I Nnf XED ALONG 
WITH AUXILIARY QUANTITIES WHICH ARE COMPUTED AS WELL. 

SUCH OUANTITfES INCLUDE THE PANEL NORMAL AT THE CO N'T 
POINT, the COMPONENT OF FPEESTRFAM VELOCITY IN THIS 
DIRECTION (FOP USE IN APPLYING THE BOUNDARY CONDITIONS! 
AND THE DISTANCE THE EDGE CONTROL °OINT$ APE WITHDRAWN. 


r ****** 


COMMCN/pjSVEL/ESVI 3) , FSVM 

COMMCN/dANQO/CP( 3,4l,PCm,R0(3!fAF(3.3),APr<3,.3l, D <2,4»,A f R,niAM f 
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CC(6,fc) f AST(6,l6), 1 1 S < 16 » , I NS t IT S.MPOO 
COMMON /SKPCH1/7A (3 » 1751 * IA ( 175 I 

COMMON / I DP I NT / I PNPIJT 1 1 P GEOM , IP S I NG ♦ I PCNTR , I p £ I VC , I POUTP 
H IMP NS I ON Z C ( 3 » 107 ) .ZCCI 3.100) » Zf.R ( 100) ,ZOC( 100) , IPC( 100) f I T C ( IOC 
DIMENSION ZM(3,NM f NN) 

OA T A DELTA /l.OE-5/ 

IF< M.EQ.5.0R.NT.E0.7) DEL T A = l.CE-7 
IF< I PCNTR.NE.O) PRINT 1001 
10 7 1 F0 C MAT ( 1H1 ) 

NN1*AN+1 
,v w I = N M ♦ l 

C CALCULATE LOCATION OF CONTROL POINTS FROM CORNER POINT DATA 

CALL GCPCAl. (NM,NN»NMl,NNlf ZM,.7A J 

C 0 c D E R NON-IDENTICAL CONTROL POINTS 

CALL G c 0 INO ( NM 1 #NNl »Z A . I A, N l A ) 
f. TRANSFER TO CODE FOP APPROPRIATE NETWORK TYPE 

GO T0( ICC, ?00, 300, AGO ,500,600,600) NT 
100 CONTINUE 

r SCURCE/ANALYS I S NETWORK CALCULATIONS 

C (NOT AN OPTION IN PRESENT PROGRAM J 

JC=0 

DO IRQ N = 2 » N N 
DO 198 v=2,NV 
JC= JC + 1 

I p=M— 1 + { NM- 1 ) * ( N— 2 ) ♦ N P A 
I PCI JC ) = IP 
CALL PTPNSI IP) 

CALL SURPROIPC.ZCI 1,JC),ZCC ( 1, JC) ) 

CALL MMULTI ZCCI 1 , JC) ,FSV ,ZCP ( JC ) , 1, 3, 1 ) 

ZC C ( JC )=-ZCP( JC) 

173 CONTINUE 

199 CONTINUE 
NC = JC 

GO TC 800 

20 0 CONTINUE 

c. DC1UBLET/ANALYSIS (WING) NETWORK CALCULATIONS 

JC=0 

C CYCLE THROUGH ALL CONTROL POINTS ON THE NETWORK 

DO ?99 N=1,NN1 
DO 298 M=1,NM1 
LMN=w + nm i*( n-1) 

C COMPUTE INDICES ASSOCIATED WITH CONTROL POINT 

IF( I A{ l«N) . LE. JC ) GC TO 298 
JC=JC«-1 

IP=MINO(MAXO(Mt 2 ) ,NM)— U(NM— 1 )*(MIN0(MAX0IN,2) ,NN)-2)+NPA 
F PC ( JC ) = I P 
TTCI JC ) = 0 

IF< M .EQ. l.OP. .M.EQ.NM 1 . 0 P .N. EQ.l . 0 ® .N.FQ.NN 1 > I TC I JC I = l 
r R C TP I £ VF PANEL INFORMATION 

CALL PTPNSI IP) 

SDC. = 0. 

C CALCULATE CON^POL POINT COORDINATES 
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DO 22 0 L = 1 » 3 

DP 7 = OEL T A*( 3 C( LI— ZA(L»LMN> ) 

7 C ( L » JC ) = ZA< L ,LMN) + D^Z 
SOC = SDC + DP Z**2 
220 CDNTINUP 

zoccjci = sor t <sdc> 

IF( ITC( jO.NF.l) ZDC(JC) = C. 
r PROJECT CONTROL POINT ONTO PANEL SUP FACE UNLESS 

C CCNTFCl POINT IS Of; NETWORK EDGE 

r GCMPt'TE SURFACE NORMAL AT CONTROL POIN T 

IF ( 70C ( JC) . r Q.O. ) CALL SUE PRO! ZC ( 1 , JC ), ZC < i , JC ), ZCC ( 1 , JC ) » 

IF( ZDC (JC) • N E • 0 • ) CALL SUP PP.O< ZC ( 1 , JC ) , ZCC 1 1 , JC ) , ZCC ( l, JC > » 

C COMPUTE normal component of freestp e am 

C VELOCITY AT CONTROL POINT 

CALL P' m ULT ( ZCCI 1 1 JC I t FSV ,ZCF ( JC >,1,3,11 
Z C R ( JC ) 3 - Z C P ( JC) 

IP ( I FCNTP.NE.O) 

fwR ITF(6, 1000) JC- , IP,ZC(1 , JC) ,ZC ( 2, JC ) ,ZC(3, JC ) , 7CP ( JC ) ,ZDC( JC I 

298 C n N T TN'JE 

299 CONTINUE 
NC = J C 

C-0 TC 8 CO 

300 CONTINUE 

C SCURC 6/DES IGN NETWORK CALCULATIONS 

r (NOT AN OPTION IN PRESENT PROGRAM) 

00 TC 80 C 
400 CONTINUE 

C nniOLET/DES IGN ( F° EE SHE r T ) NETWORK CALCULATIONS 

JC = C 

DO 4 29 N 3 1 * N N 
OQ /,2 8 m=t,NM. 

C RE-CPDER CONTROL POINTS ELIMINATING CONTROL POINTS 

C ON TWO OF THE NETWORK EDGES 

L MN = M ♦ NM*(N-1) 

L MNP*M+nw l* ( nj-1 ) 

DO 4 20 L 3 1 , 3 
7 A { L » LMN ) =Z A( L » L MNP ) 

420 CONTINUE 

428 CONTINUE 

429 CONTINUE 

0 DFDER NON-IDFNT ICAL CONTROL POINTS 

CALL G p D I NO ( NM , MN , 7 A , l A » N I A ) 

C C YC L E THROUGH ALL CONTROL POINTS ON ThF NETWORK 

DO 499 N = 1 , NM 
DO 498 M=1 , NM 

C CCMPUTE INDICES ASSOCIATED WITH CONTROL POINTS 

L«N 3 M4-NM*( N-l ) 

IF ( I At LMN) . LE. JC I GO TO 498 
JC=JC+I 

IP = M INCH MAXOC «, 2 ) , NM ) - 1 + ( NM- I ) * I M I MO ( M A X 0 1 N , 2 > , NN ) - 2 H-NP A 

1 C C ( JC ) 3 I P 

I TC ( JC) = c 
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IFfM.EG. l.OP.N.EQ. II ITC(JC) = 1 
C RFTPIEVE PANEL I NFOP MAT I ON 

CALL PTFNSt IP) 

snc = o . 

f CALCULATE control point coordinates 

DO 4 EC L = 1 » 3 

PPZ = DEL T A*(PC(L)-ZA(L»L3N) ) 

ZCILtJC) = 7A(L,LMN) ♦ DPZ 
SDC = SDC + DP7**? 

450 CONTINUE 

Z DC ( JC ) = SORT(SDC). 

IF{ ITC(JC).NE.l) ZDC(JC) = C. 

C P°0 JE C T CONTROL POINT ON'TO PANEL SURFACE 

C UNLESS CONTROL POIN T IS ON NETWORK EDGE 

c CCMPUTF SURFACE NORMAL AT CONTcql POINT 

I F ( 7 DC ( JC ) . F Q. 0 . ) CALL SUP PPDI Z C ( 1 , JC ) , ZC ( I , JC ) , ZC C ( L , JC ) ) 
TFfZOCI JCKNE.O.) CALI SURPP0(ZC(1*JC) ♦ZCC ( I » JC ) » Z CC ( l » JC. ) ) 

C COMPUTE NORMAL COMPONENT OF FPFFSTCEAM 

C VELOCITY AT CONTROL POINT 

CALL mmuLT ( ZCC( l t JC ) t FSV tZCRf JC I » I, 3t 1) 

7 CP ( JC )=-ZCR( JC) 

IF( IPCNTR.NF.O) 

«WP lTFC6t 1000) JC , IP. ZC ( l , JC ) ,ZC( 2, JC ) , ZC(3, JC I , ZCR( JC > »ZOC( JC )' 
403 CONTINUE 
49<= CONTINUE 
NO = JC 
GO TC 300 
500 CONTINUE 

C DCU3L FT/DFS IGN (WAKE) NETWORK CALCULATIONS 

JC*C 

C CYCLE THROUGH ALL CONTROL POINTS ON THE NETWORK 

DO 5 <59 N = 1 » l 
DO 5 98 M*1 , NM1 

C COMPUTE INDICES ASSOCIATED WITH NETWORK 

LMN*M+MM1*( N— 1 ) 

IF ( TA( LMN) . LF. JC) GO TO 59R 
JC = JC+ 1 

I P = M I NO ( MAX 0 ( M» 2 ) ,NM)-l + ( MM- 1 ) *( MlNO <M«. XQ (N. 2 ) , NN )-?) + NP A 
I PC ( JC ) = IP 
ITC( JC) = 1 

c RETRIEVE PANEL INFORMATION . 

CALL PTRNSt IP) 

snc = o. 

C CALCULATE control POINT COORDINATES 

00 520 L -1 . 3 

DPZ = DELTA*<PC(L)-ZA(L,LMN) I 
ZC(L ,JC) = ZA(L.LMN) + DPZ 
SDC = SDC > DPZ**? 

5?0 CONTINUE 

ZDC(JC) = SORT ( SDC) 

PROJECT CONTROL POINT ONTO PANEL SUFFACE 
COMPUTE SURFACE NORMAL AT CONTROL POINT 
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I F( 70C ( JC ) . EQ.O . ) CALL SUF DRQ( ZC ( 1 , JCI ,ZC(L » JC> , ZCC ( 1 , JC n 
TF(ZOC( JO.NE.n. ) CALL SUP PPOIZC f l * JC ) ,ZCCf L * JC I »ZCC ( 1» JC H 
C COMPUTE NORMAL COMPONENT OF FREESTREAM 

C VELOCITY AT CON T PCL POINT 

CALL MMULT< ZCC< 1 , JC ) ,F$V ,7CR( JC > * 1, 3, l) 

ZCR ( JC >=-ZCR{ JO 
1^(1 PCNTR.NF.O) 

5 WR !TEU> , 10001 JC, IP,ZCIL , JO ,ZC ( 2, JC ) , 7 0 3, JC) ,ZCPC JO ,ZDC ( JO 

598 CONTINUE 

599 CONTINUE 

NCsJC 
GO tt 800 

600 CONTINUE 

C 0CU5LET/DFS ISN ( FFD SHEET) CALCULATIONS 

JC=0 

NO = NN1 

! r ( N T , E 0 « 7 ) NO = 1 

C CYCLE THROUGH ALL CONTROL POINTS ON T H E NETWORK 

nn 6 9 o N= L , NO 

00 6 EE M* 1,1 

C CC M P'JTE INDICES ASSOCIATED WITH THE NETWORK 

LMN^V4-NMI*( N-l ) 

JC=JC*1 

I p = W fNO( MAXO (M, ? » ,NM) -1MN,V-1 ) *( M TNO (MA XO (N, 2 ) , NN )-?) + NPA 
T 0 O JC ) = I R 
ITC(JC) = 1 

C RETRIEVE PANEL INFORMATION 

CALL PTRMSI IP) 

SOC = 0. 

C CALCULATE CONTPOL POINT COORDINATES 

0^ 620 L = l,3 

PP7. = DELTA*(PC( L)-Z AIL, L IN) > 

/ C ( L » J C I = ZA(L.LMN) ♦ OPZ 

soc = sne + op z**2 

62C CONTINUE 

Z DC ( JC ) = SQRT(SDC) 

C PROJECT CONTROL POINT ONTO PANEL SURFACE 

C C CM oi) TE SURFACE NORMAL AT CONTROL POINT 

I F ( Z DC ( JC ) . EQ.O . ) CALL SU p PF 0( ZC ( 1 , J C ) , ZC ( 1 , JC ) , Z CC ( L , JC )) 
TF(7.0C( JC) .NE.O.) CALL S'J P op Q I ZC ( l * JC ) * 7CC ( 1 , JC ) »Z CC. ( L , JC ) ) 

C C C :M PUTF NORMAL COMPONENT OF FREF$TCEAM 

C VELOCITY AT CONTROL POINT 

CALL MMULTI ZC.C I I* JC) ,FSV,7C p (jC ), 1, 3, I) 

7f«M JC )=-ZCR(jC) 

1 F ( IPCNTR.NF.O) 

J.W* iTEIf, 1C0O) JC* I P » ZC ( 1»JC) ,ZC( 2»JC),ZC(3*JC) » Z C p ( J C ) » Z DC ( J C ) 
1 CDC FORM AT ( 2 1 5 » 5 F I 5 . 6 ) 

698 CONTINUE 

699 CONTINUE 
N C = J C 

8 CO CONTINUE 

return 

END 
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suspcittne cprv 

r ****** 

C subroutine DPIV 


C 

r 

r 

C 

r 

/* 

V, 

r 

c 

/* 

c 

r 

r 


PU C p C S c TO CALCULATE THE VELOCITY INFLUENCE COEFFICIENTS INDUCED 
AT A FIELD POINT R Y A DOUBLET PANEL 

INPUT COMMON BLOCK 

/ICONST/ - PI2.PKI 

/PIVINT/ - X,P, A,B,DIAM,C,NTST 

OUTPUT COMMON BLOCK 
/PIVINT/ - DV 

subroutines 


c called IN t C al * z ero 

c 


r 

c 

r 

r 

c 

c 

r- 

r 

r 

C 

r 


DISCUSSION THE SOUTINE COMPUTES THE DOUBLET PANEL VFI.OCI T Y 

INFLUENCE COEFFICIENTS AT a SPECIFIED field POINT, a 
O c SCR I P T I ON OF The METHOD AMD CALCULATIONS PERFORMED IS 
CONTAINNED IN APPENDIX B OF THE ENGINEERING DOCUMENT . IF 
THE FIELD POINT IS SUFFICIENTLY DISTANT FROM THE PANEL 
A FAR FIELD APPROX I MAT I ON IS EMPLOYED. THE APPROXIMATION 
AND COMPUTATIONAL METHOD IS PRESENTED IN SECTION B.4 OF 
APPENDIX B AND THE RELATED CODE COMPRISES THE pact OF 
DPIV BETWFEN STATEMENT 120 A M D STATEMENT 5CC • THe 
LOOP 450 CONTAINS THE BULK QF THE CALCULATIONS AND ITS 
SUPPOSE TS TO COMPUTE THE J VECTORS OF EQUATION (B.9lJ. 
FOR t H I S CALCULATION THE TERMS ON THE RIGHT SIDE OF 
EQUATION C R • 9 1 1 HAVE BEEN EXPANDED, HENCE THE CODE DOES 
NOT DIRECTLY CORRELATE WITH THIS FORMULA. ANOTHER 
FVALUA T ION PROCEDURE IS EMPLOYED WHEN THE FIELD POINT 
IS NEAR THE PANEL. A DESCRIPTION OF THIS PROCEDURE IS 
PRESFNTED IN SECTIONS B.2 AND B.3 OF APPENDIX B. THE 
PELATFD CODE COMPRISES THE PART OF OPIV BETWEEN 
STATEMENTS 500 AND 900. THE LOOP 750 CALCULATES THE 
VECTOR J DEFINED BY EQUATION (B.34) WITH THE H INTEGRALS 
COMPUTED BY THE ROUTINE INTCAL. THE LOOP 800 TRANSFORMS 
THE INFLUENCE COEFFICIENTS FELATIVE TO THE EXPANSION OF 
DOUBLET STRENGTH ABOUT THE PROJECTION OF THE FIELD 
POINT TO COEFFICIENTS RELATIVE TO THE EXPANSION n F 
DOUBLET STRENGTH ABOUT THE ORIGIN. 


£♦****♦ 


LOGICAL LOGAB 

COMMCN/IC ON ST/PI » P I 2 , P 1 4 I 

COMMON/ I NTC/H< 6, 6,71 , HZ, IH, MXC, MXK 

COMMCN/PIVINT/XI 3 I , P ( 2, 4 I , A , R, D I A M, C ( 6, 6 I , DV( 3 , 6) , NT ST t NCF 
DIMENSION Q{ 3) ,QEX(3,6) , MJ(6 ),NJ(6I 
DATA mj.nJ /l, 2, 1,3,2, l«l, 1, 2*1, 2*3/ 

DATA DELMD.DELMQ / 4 .,2.45/ 

C FCUATIONS AND QUANTITIES REFERENCED IN THIS ROUTINE 

C APE CONTAINED IN APPFNDIX B OF THE ENGINEERING DOCUMENT 


102 



A 2 = 2 . * A 
B2=2.*8 

r. TFST pop POSSIBILITY OF EMPLOYING FAP FIELO approximation 

XM = SCPT(X<L)*X(1>*X(2)*>: (?)+X(3l*X(3l) 

R ATI r=XM/DI AM 
r BASIC TEST 

TFT R AT 10 .GT .DEL MO) GO TO 1,10 
C AUXILIARY test based ON MOPE PFFINED ESTIMATE 

P A T T C = 0 . 

00 ICC IC=1,4 

0TP*4RSl P( 1 . IC.)*< P( If IC )-2. *X( L> )»P I 2t I 0*1 PI2. IC )-2.*XC 2) ) » 
ICO P AT I C = AM AX1 (RATIOrOIP) 

PAT K = XM*XM/R ATI 0 

C P.F'AMC.H to n far fiflo CALCULATION if field POINT TOO 

r CLOSE TO ° ANSI. 

IF ( * & r I O.LT .OELMQ ) GO TO. 500 
120 C°N T INUF 

C FAR FIELD CALCULATIONS 

U= 1 . /xv 
U2= U+IJ 
U3=U*U2 
x<u=u*xm 

X ( 2 ) =U*X ( 2 ) 

y<3 ) =U*X ( 3) 

A 2X = A2* X ( l) 

P2Y=C2*X (?) 

U04P I = I.!3*PI4I 
UD8P 1= . 5 *UD4P I 

C. CALCULATE VECTOR J OF EQUATION I S-Pl ) 

DO 450 J * 1 * NTST 
M=MJ( J) 

N=NJ(J) 

CD P I =UD4 P I 

TF( ( J.EQ.4) .OR .( J.FQ.M » 0DPT=UD8PI 

e i = c ( m , n i 

Elv = C( v+l ti \|) 

F 1 N =C I M f M+ 1 ) 

F7=-A?X*E 1M-82 Y*E IN*-X(3)*FI 
XF=-3.*E7 

0( I ) = X F X ( l )-A2*E IM 
0<2)=XF*X< 2)-B2*Fl* 

0(3) =XF*X(3)+El 

C. U SF ONLY MONOPOLE APPROXIMATION IF FIELD POINT S UF F TO T ENTL Y 

0 DISTANT 

IF(R ATIO.CT.DELMD) GO TO ACC 
E l M M=C I M+ 2 f N ) 

C I vm=C ( Vf i.Nf-i ) 

F INN =C ( M f N+ 2 ) 

E? = X ( ] )*E1M«-X(?)*F1N 
E?v=X( lt*eiMM»X( 2)*EIMN 
E 2 M = X ( 1 ) *E l VN4-X ( 2 ) *F 1 NN 
E5 = A*E1MM4-B*ELNN 
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F7V=-A2X*E1MM-B2Y*E1MN*X { 3)*E1M 
E 7N = -A 2X 1MN-82Y*E 1NN+Y (3)*E1N 
XF=-3.*E5-15.*<X ( 1)*E7,M«-X(2 )*F7N+-X( 3)*X(3)*£5) 

C ( l I =0( 1 )+U*< XF*X U ) «-3.*( E7M-A2*E2M ) ) 

C( ? ) =«( 2>+U*< XF*x 12 ) 4-3.* ( E7*v-P2*E2N ) ) 

Q( 3)=C( ?)*U*< XF*X <3) + 3.MF2 + 2.*X( 3)*E5) I 
4C9 CONTINUE 

on 4 25 Y = 1 * 3 
OV ( T ,J ) = CDPI*Q( I I 
425 CONTINUE 
450 CONTINUE 
00 T r 9C0 
500 CONTINUE 

M FAS FIELO CALCULATIONS 

OETEPVINE OSOFP OF H INTFGPAI S REQUIRED 
VXQ=6 
MXK = 7 

CHECK IF PAN^L IS FLAT 
LOGAB=< A. EQ.O. I . AND. ( P . EG . C . » 

TF(LOGAB) ”XQ=4 
TF(LOGAB) M XK = 5 
IF( NTST.l T.6) MxO=^XO-l 
IF< NTST.LT. 3) MXO=MXO-t 
CALCULATE H INTEGRALS 
CALL INTCAL 

CALCULATE QUANTITIES FREQUENTLY USED IN SUBSEQUENT 
CCMPUTAT IONS 

CAB=A*X(1)*X!1 ) + 8*X ( 2 »*X ( 2) -X(3 ) +H7 
PTF=PI4T 
X 2*2 .*X ( l ) 

V2*2 «*X ( 2) 

A2X=A2*X( 1. > 

°2V=e2*X(2) 

H3=3 .♦HZ 
H6 =6 .*HZ 
H9=9 .*HZ 
HH3=3.*HZ*HZ 
HH15=15.*HZ*HZ 
HWH l 5=HZ*HH 15 
CALL ZEPO( QEX, 3*NTST) 

I F ( JH.EQ.O) GQ TO 6.75 
C CALCULATE AUXILIARY TERRS CF H INTEGRALS DEFINED BY 

C EQUATION (8.51) IF PROCEDURE 3 HAS BEEN EMPLOYED 

SPI2=PI2 

!F(HZ.LT.(O.I) SPI?=-P!2 
I P( NTST.LT. 3) GO TO 675 
0 E X ( 1» 2) *SP I2*( 1 .+A2*H7 ) 

0E Y ( 3f2)=S r> I2#( A2X) 

OEY ( 2. 3)*SPI2*( l.+92*H7 ) 

QFX ( 3, 3 ) =SP I2*( B2Y) 

IF(NTS T .LT.6) GO TO fc 75 
QEX( 1*4I=SPI2*(4. +A2X *HZ ) 



CEX(2,4)=SPI2*(2. *82Y*HZ ) 

ory ( 3, 4} = SP I2*( 2 . * ( -HZ * ( i.+H7*< 3 .*A4-8) > 4-CA6I) 

OSX ( It 5)=SPI2*( 82Y*HZ ) 

C 5 X ( 2,5) =SPI 2*( 42X*HZ ) 

OEX ( 1,6 ) =SPT2* ( 2. *A2X *HZ ) 

Q c x ( 2,6)-$PT2*<4. * P. 2 Y *H7 ) 

Q EX( 3,6 )=$P I 2* (2. *{ -H/M 1. ♦ HZ *{3.*U+A|»+CAP)| 

675 CONTINUE 

G CALCULATE VECTOR J DEFINED 3 Y EQUATION (3.341 

DO 75C J=1,NTST 
«=MJ( J I 
N=MJ( J) 

Q( l)=QEX(l, J)fH3*H(V«-l,N,5) 

G( 2 ) = C E X < 2 » J)+M3*H( v,M+I ,5) 

0 ( 3 ) =CEX ( 3, J )*-H{ M , N , 3 )-HH3*H( M,Nt5) 

C IGNORE TFPMS DEPENDING CN CURVATURE IF PANEL IS PLAT 

T F < L CO A 8 I GO T 0 6 PD 
G ( 1 ) -0 ( H 

C + A*< ( 3.*H( M+3.N, 5)-? ,*H( «+l ,n,3 ) +HH15*H ( M+3»N, 7) ) 

CfY?*(-H| M,N, 3) *HH15*H( M«-2 , N, 7 ) ) ) 

C+R*< ( 3.*H{ M+-1 ,N4-2 , 5)+HHl5*H( K + l ,N*2 t 7)) + Y2* ( HHl 5*HI M* 1 ,N«- 1 , 7 ) ) ) 
C + C.A3*(-3.*H(M+l,N,5)«-HHi5*H(M+l,Nt7| ) 

0(71*0(2) 

C ♦ A X s ( <3.*h(M4-2,N+l,5) 4-HH 1 5*H ( M + 2 ,N + 1 , 71 ) +X2*(HH15*H( , N«-l ,7 ) ) ) 

C+R*( (3.*H(M f N+3, 5)-2.*H|M,‘i + l,3) 4-HHl 5*H ( M,N*3 ♦ 7) ) 

C+Y2* (-H( M,N, 3) +HH15*H(»'tN*2, 7 III 
C + CA3*( -3.*H< M,N*i , 5) +HH15*H ( M,N+l, 71 ) 

G ( 3 ) =0 ( 3 ) 

C + A*( (H3*H(M+2,N, 5) -LHH15*H( ^?,N,7)| 

C + X2*(H6*H( *+l,\', 5)-HHH15*H( l, N*7) ) I 
C + B*((H3*H(M,N4-?,5 I-UHH15*H(M,K>2,7» I 
C+Y2*(H6*H<M ,N+ L ,5 )-HHH15*H( M,N*t , 7 ) ) J 
C + C AR*( HO*H( M,m,5) -HHH 1 5* H ( ^ , N , 7 ) I 

699 CONTINUE 

DO 7 CO 1=1,3 

PV( I ,J > = PIF*G( I ) 

700 CONTINUE 
750 CONTINUE 

I F { N T ST. LT. 3) GO TO 9C0 

C REARRANGE COE p F IC I ENT S AS REQUIRED ?Y FOLIATION (B.31) 

DO 3 CP 1 = 1,3 

nV(!,2J = 0V( I , 2 ) +X ( l ) *DV < 1,1) 

DV(I ,3 )=0V( T»3) + X(2) *0V (1,1) 

I p ( NTST.LT. 6) GO T 0 800 
0 V X = C V ( I ,2)-.5*Xl H*DV( 1,1) 

OVY=DV ( I ,3)-.5*X( 2>*DV( 1,1) 

0V( I ,4 )= .5*0V( I ,4l*X ( II*0VX 
DV( I ,5 )=0V( I ,5 )*X( l) *OVY+X ( 2 ) *DVX 
OVU ,6 ) = .5*0V( I ,6 >+X< ?>*DW 
QCO CONTINUE 
900 CONTINUE 
RETURN 
END 
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SUBPHJTTNE ECAL(Xl,X2,Al f A?,F,N) 

c 


SUBROUTINE EC&L (Xl f X2,&L,A? t F,N) 


r. 

c 

c 

r 

r 

C 

r 

C 

r 

c 

r. 

r 

C 

r 

C 

C 

C 

c 

r 


PUPPPSE TP EVALUATE E( I l=A2*X2**< T-l)-Al*Xl**< I - l ) I = l , N . 

(SEE EQUATION (3.59), APPENDIX B OF ENGINEER I NO P n CU M f NT ) 

INPUT CALLING SEQUENCE 

XI - (SEE PURPOSE) 

X2 - (SEE PURPOSE) 

A I - (SEE PURPOSE) 

A2 - (SEE PURPOSE) 

N - (SEE PURPOSE) 

OUTPUT CALLING SFQUENCE 
E - (SEF PUPPOSF) 

SURPCUTTNcS 

CALLED NONE 

DISCUSSION THE ROUTINE CALCULATES THE QUANTITIES 

E( I)sA2*X2**(I-l)-AI*XI**( I-I) FOR !=l,N USING THE 
PECUPSIOM FORMULA E ( I ) =( X UX 2 ) *E ( I - l ) -X l* X2* E ( 1-2 ) 
and the INITIAL CONDITIONS E(l)=A2-Al AND 
E( ?)=A2*X2-A1#X1. 


r*$$**$r 

DIMENSION E ( N) 

E ( I ) =A2-AI 

!E(N.LT.2) GO TP 90C 
E( 2)=A2*X2-41*Xl 
IF(N.LT.3) GO TO 900 
X?PX 1= Y2+X1 
X2TX 1=X2*X 1 
DO 1C 1=3, N 

1C E ( n =X2PX1*E( I -l )-X2TXl*E( 1-2) 
9C0 FFTUPN 
END 
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SIJBPCUTINE EDGE IN 

r ****** 

r SUBROUTINE EDGE IN 

r 

r pijrpcse 

r 

C. 

c 
c. 

C INPUT 

r 

C 
C 

C OUTPUT 

r. 

c 

C SUP R CUT I NES 

r TAILED NOME 

c 

C DISCUSSION THE ROUTINE OBTAINS THE NUMBER OF EQUATIONS CORRESPOND 

C -ING TO CONTROL POTNTS AT EDGES. THEN IT ASSIGNS INDICES 

C ACCORDING TO WHETHER CONTROL POINTS APE AT EDGE OP INTER- 

C IO p . . 

C ****** 

C o MM PN/P OYC S/7 C. ( 3 » 12 5 ) » ZCC ( 3 ♦ 12 5 ) » 7 C ? ( 1 2f> ) » Z OC ( 12 5) » I PC ( L 2*> ) . 

1 I TCI 125 1 

C OMMCN/ I NOE X/NT ( 9 ) , NM I 9 ) » NN ( 9 J » NP < 9 ) , NS ( 9 ) , NC I 9 I , NZ ( 9 ) , 

CNPA( 10 ) ,MSA( 10 » , NCAI 10) ,NZ A ( 10) . NNETT *N PANT « NSNG T, NCTR T» N7.MPT 
C.CMMCN /NINDX/NEQ.NJCI 125),IJC(125) 

C TO OBTAIN THF NUMBER OF EDGE OOWNWASH EOS. 

Nfc'O = 0 

DO 1C JC* 1 * NCT R T 
10 NEO = NEQ + ITCUC) 

C TO ASSIGN THE INOlCFS 

l F - 0 
LC = NFQ 

DO 3 C J C * 1 » N C T ® T 
I F ( I T C I JC ) . NF . I ) GO TO 20 
L E = L F ♦ 1 
NJC ( JC) = LF 
I JC ( L E I = J C 
CO T C 30 
>0 LC = LC + 1 
NJC ( JC > = LC 
I JC( LC ) = JC 
30 CONTINUE 
RFTUPN 
FND 


TO PROVIDE NF* INDICES FOP THE CONTROL POINTS AND DOUBLET 
-S SO THAT THE CORRESPONDING E QU AT I ONS I OOWNWASH CONDITION 
) A NO DOUBLETS AT EOGES OF NETWORK WILL PRECEDE ALL T HF 
OTHFRS 

COMMON BLOCK 
/BDYCS/ - ITC 
/INDEX/ - NC.TRT 

COMMON FLOCK 
/NTMDX/ - NEQ»N JC , I JC 
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S IJP P CUT f NF FIVC(ZC,/NC,ZOC, IPINFI 
£<:***# * 

C. SUBPriJ T INF Five ( ZC , Z NC , ZOC » IPINFI 

r 

PURPOSE TO CALCULATE THF VELOCITY INDUCED BY A DOUBLET PANFL 0*' t 
NETWORK EDGE CONTROL POINT 

INPUT CALLING SEQUENCE 

ZC - COORDINATES O' 1 CONTPOL POINT 
ZNC - UNIT NORMAL TO SURFACE AT CONTROL POINT 
Z DC - DISTANCE FROM CONTROL POINT TO PANEL EOGF 

COMMON BLOCK 
/IPPINT/ - IPFIVC 
/ZIP/ - IPZ, I P t JC Z 
/PANDO/ - CP»PC,PO, AP, P f DI AM 
/ S YMM / - NSYMM 

OUTPUT CALLING SEQUENCE 

IP INF - INDICATES WHETHER PANEL IS CLOSE ENOUGH TO 

CONTROL POINT TO INDUCE A SUBSTANTIAL OOWNWASH 

COMMON -BLOCK 
/P I VM/ - DVDS 

c S UP P CUT I NES 

r CALLED ZERO, CROSS, UNI PAN 

c 

C DISCUSSION THE POUT INE CALCULATES THE VELOCITY INDUCED BY A 

C DOUBLET PANEL (AND ITS IMAGE IF CONFIGURATION IS 

C SYMMETRICAL! ON A NETWORK EOGF CONTROL POINT. THF 

C INFLUENCE IS COMPUTED BY ACCUMULATING THE INFLUENCE OF 

r EACH PANEL EDGE. THE I NFLUENCF OF A PANEL EDGE IS IGNORE! 

C UNLESS a POINT ON THE EDGE IS WITHIN A SMALL SPHERE 

r AROUND T HE CONTPOL POINT. IN THIS CASE THE INFLUENCE 

C DUE TO BOTH THE DOUBLET STRENGTH AND ITS DERIVATIVE 

C PERPENDICULAR TO the EDGE (EVALUATED AT THAT EDGE 

f POINT) TS COMPUTED. THE RESULTANT VELOCITY IS THEN 

r DISTRIBUTED AMONG THE COEFFICIENTS OF THE DOUBLET 

C DISTRIBUTION ON THE PANEL. 

C OMMCN/P I VM /DVDS ( 3,6) 

COM MON/ PANDO/ C D (3,4),PC<3),R0(3),AR(3,?),APT(3,3),P(2,4),A,B t DIAM, 
1C{6,6) ,AST(6,16> , 1 1 S < 16) , INS, ITS.NPDQ 

C OMMCN/SYMM/NSYMM 

COMMON /ZTP/IP7,IP,I t Z,JCZ 

COMMON / IPP I NT/ I PNPUT ,IPGEOM, IPS ING, IPCNTR , IPE I VC, I POUTP 
DIMENSION R 1( 3) ,° 2( 3) ,DR ( 3 ) ,Q(6 », W( 3) ,Z ( 3) 

DIMENSION ZC(1)»7NC<1) 

DATA EX / I . L / 

TPINF=C 

EXZDC=EX*ZDC 
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CALL ZF* 0(nvns, IS) 

W( 1 |=ZC( 1 ) 

WC5)=7C(3) 

r CCMOIJTF INFLUENCE rF PANEL AND IMAGE IF MSYMM=i 

do 2 go i symm= l , ? 

S !CN=?-2*I SY.MM 
vm«SIGN*7.C<21 

D!ET=SGFT{ (•/( 1 » — P C < L J » ** 2+ ( W ( 2 1 -PC ( ?. J 1**2 + <W< 3)-PC( 31 1**21 
0 IGNORE INFLUENCE IF PANEL IS NOT IN 

C PPnxivfTy nP CnNTFCU. POINT 

IF(OIST.C-T.DIAM) GO Tr 5CC 

0 CALCULATE POINT ON PANEL EDGE CLOSEST TO CON T R(JL POINT 

ro 100 T S= l » A 
ISP1*IS+ L 

IF( I SP1.GT . A) T S P 1 = 1 
DO 5 c T = I » ? 

F K I ) = CP ( I, ISI-WIII 
R?( I ) = C P < I , ISPU-Wf I ) 

PM I ) = CP(I, ISPU-CPI I » T S ) 

50 CON T INUF 

OF V= SQPT (CP I 1 ) **2 + D P ( 2) **2+DF ( 3 ) **2 ) 

TF (DPM.LT. ZDC ) GO TO 100 
c ]m = S0?T (c 1( 1 l^Z + HK ? ) **2 + F 1(31**21 
P 2M = S0 r -T(O2( 1 ) **2 + F 2 ( 2)**2+ 5 2(3)**2) 

T = -( c L m*c,P< U+F 1( 21 *DP I 2 )*P l< 3) *0M 'M )/ <n=M**2 ) 

IF( (Cl‘-'.G T .EXZnC).AND.(T.LT.^.H G .1 TO 100 
I P ( ( F 2 M . GT . E X Z DC 1 . A N 0 . ( T . GT . 1 . 1 I GO Tn IOC 
DO 55 1=1,3 
Z ( I ) =CP( I, IS M-T*QR.( I ) 

55 CONTINUE 

CALL C D 0SS( p 1, c 2,Q) 

AM = 5CRT( C( l ) **2 + 0( 2 »**2+Q ( 3 )**2 1 /DFM 

r IGNORE INFLUENCE OF PANEL EDGE IF Foge IS 

C N(?T IN pOUXl.MITY OO CON T FGL POINT 

IF ( &V.G T .EXZDC 1 GO TO 100 

S P 1 = ( F l ( 11 *DP( 1 1 4-F 1 (2 )*Dt ( ? ) + PL ( 3) *QF ( 3 )) / ( c IM*DR M) 

S p ? = ( R 2 ( l ) *OP ( 1 ) f P2f 2 1 *DR ( 2 )*F2 ( 3) *DR ( 3 )) / ( R2M*0R M) 

CALCULATE MAGNITUDE of DOWNWASH INDUCED GY DOUBLET 
STRENGTH AT PANEL EDGE POINT CLOSEST T D CONTROL POINT 
T F( SP1*S P2. GE .0. ) F 1 = AN* ( 1 . / R 2M * * 2 - 1 . / F IM**2> /< SP U-SP2 1 
IF(SPl*SP2.LT.j.) Fl=(Sri-SP2>/AM 
T = 0 ( 1 ) *Z NC ( 1 1 fO( 2 1 * ZNC ( 2 1+0 ( 31*Z.MC( 3 1 
I F ( T .L c .0 . ) F 1 =— F 1 
F 1 = ZDC *F1 

C CALCULA t F MAGNITUDE OF O^WNWASH ’MOUCFO BY D£F I V AT ! VE 

0 OF OOUBLET STGCNGTH P EF P ENDI Clll. «r TO EDGE AT PANEL 

C FCGE POINT CLOSEST TQ CONTROL PTOII’T 

IE (.SP1 .C-E.C . » F = ALOG( (P2M*( 1 .♦SP2) 1 / ( R IM«( 1 , + SPl ) 1 ) 

IF( SP2.LE.0. 1 F = -ALOG( (F 2M*( 1.-SP2) J/(F IM*C l.-SPltM 
IF ( ( SPl.lT.O. ) . AND. ( SP2.G T .C. 11 
CF=ALCG(R2 W *< l.fSP2)*F ] M* ( l.-SPl J/(A,M**2I 1 
f = ZDC *F 
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DP=SGPT( ( P( 1, ISP l )-P( 1,1 SI) **2+( P(2, ISP! >-P<2, IS) )**2> 
F 2 = - F* ( P ( 2 * !SPl!-P(?» TSI1/0P 
F3=F*( P( 1, I SP1)-P{ 1, TS) I /DP 
CMl U M P AN ( ip t R 0 » Z » Z > 

CALCULATF OOWNWASH INDIJCFD BY EACH COEFFICIENT OF 
QUADRATIC OOUPLFT DISTRIBUTION OM PANEL 
0 ( 1 ) =F 1 

Q(?)=F2+Fl*Z( 1) 

0(3) =F3+FI*Z(2) 

F4=F 2+.5*F 1*Z( 1 ) 

F5=F3*.5*F 1*7(2) 

0(4) -7A 1 ) *F 4 
0(5 >=Z( 1 )*F5+Z(2 >*F4 
0(6) =7 ( 2)*F5 
00 75 J- 1 * 6 

OVOS ( l»J)=OVDS(l » J ) + 7 NC ( 1 ) *0 ( J ) 

DVDS(2t J)=DVOS( 2, J)+SIGN*ZNC( 2)*0( J ) 

0VCS(3,J )=0VDS(3, J)+7NC( 3)*Q( J) 

75 CONTTNUF 

IF( t PE IVC.NF.O) 

$ W P I T E ( 6 » ICOO) JCZtIPZf IP.IS.W, Fl f F2-,F3 
1000 F0° MAT(4I5t6EI5.6) 

IPINF=l 
100 CONTINUE 

IF( NSYNN.FQ.O. ) GO TO 500 
200 CONTINUE 
500 PFTUPN 
F NO 
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SUBROUTINE 
C ****** 


fmncal 


r. 

c 

c 

c 

c 

r 

C 

c 


SUBROUTINE FMNCAL 

PUPPCSF TC CAL CUL AT F CERTAIN F INTEGRALS USED TO COMPUTE T HE H 
IK TEGS AL S INVOLVED IN THE FORMULAS FDR THE SCIIJPCE AND 
DOUBLET PANEL INDUCED VELOCITY INFLUENCE COEFFICIENTS. 
(SEE SECTION B . 3 C’F APPENDIX R PE THE ENGINEERING 
DOCUMENT . ) 


r 

C 

r 

C 


INPUT COMMON BLOCK 
/INTO/ - MXO 
/ S K A I C. L / * l MXC2.LMXC3 

/SKAICI/ - AKSl , AET1 ,AKS2, AE T 2 , ANK, ANE, A, AA, SI, S2,HH 


OUTPUT COMMON BLOCK 

/ SKA I C 2 / - OKMN , GEMN,GAMM 


SUER CUT I NES 
C A l LED ECAL 

0 I SC US S I CM T HE ROUTINE COMPUTES THE INTEGRALS F{ M» N, 1 ) EOF t 
N = 1 , M X Q AND M=l,MXQ-N+l WHEF c 

F(M,N, U = I(L,KSe**<M-I |*ETA**(N-II/PHC! f DU . A PESO COTTON 
OF the CALCULATIONS PEP FORMED IS CONTAINED IN SECTION P.3 
OF APPENDIX B OF the ENGINEF® I NG DOCUMENT. THE P F L E VA NT 
EQUATION'S APE (B.62), ( 9.63), (9.64) A NO (R.65). THE 

RELEVANT PROCEDURES ASF 4 AND 5. T HE CODE C- L 0 S F L Y 
FOLLOWS THE DEV FLO°MFNT AND NOTATION OF SEC T ION 9.3. 

C MO TF T HAT FMN( M,N) =E ( M f N t I ) . 

C *««*** 

LOGICAL LM X 02 , L MX Q 3 * L MX G4 ♦ LMX K 3 » L MX K 5 * L MK E X 

Cr:HM0N/INT0/H(6,6,7l , HZ , IH,**XO,MXK 

CrKMCN/SKAl CL/LMXC2.L MX 03,! M X C4 , l. M XK 3 * L MXK 5 , L MK EX 

COWMCN/SKAI Cl/ AKSl , AFT L, AKS 2, AFT.?,DRM,EL 1 , EL2 , C LM, ANK , AN 5 , A , A A , 
CGG, SI, S2 ,SI T ,S2I , HM , HH 

C r M M CM / s k A I C 2 / G A K ( 2 1 ) ,GKNKf 5,5) ,GFNK(5,5» ,GKMN(6,G) ,GFNN<6.) , 

C G A MM ( 6 , 6 ) , H I L 1 , F K. ( 37 ) , F N K ( ft , 5 ) , F MN ( 6 , 6 I , F ( 3 7 ) 

C INITIALIZE f ( M , N , 1 ) INTEGRALS 

FVN( 1, l ) =FK ( L) 

IF(LMYQ?) GO T 0 5 DC 

C BRANCH TO STEP (3. A) OF (3.9) O p PROCEDURE 4 RESPECTIVELY 

IF( AP.S( ANE )-ARS( AMK) ) ICO, 100,200 
LOO CCNT IMIJF ■ • -■ - 

C 1 =A *A NF 
C 3 = A NX 

C EXECUTE STEP (3. A. I) (EQUATION ( B . 6 ? I ) OF PROCEOURF 4 

CALL FCAL(AFT1, AFT?' t Sl,S2,E,MXQ-l) 

F VN ( 1 , ? ) =C 1 *FMN ( 1 » 1 ) *'C 3* F ( 1 ) 

IE ( LMXC3 ) GO T 0 150 
C2=- ( A A+HH* ANK* ANK ) 

DO 1 30 N = 3 , MXQ 
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130 FVN( 1 , N )=( FLOAT ( 2*N-3 )*C l*FMN ( 1 , N- 1 ) +FL0 AT ( N-2 ) *C2* FMN { l t M-2) 
r +f. 3 * E ( N- 1 ) ) / FL n A T ( N— 1 ) 

150 A l =- AN E/ ANK 
A2=A/ANK 

C EXECUTE STEP (3. A. IIJ (EQUATION (8.631) OF PPOCcDUPF 4 

DO 170 M = 2 , MXO 
MXN=yxc-M+i 
no 170 N=1»MXN 

170 F*N( F,N) = A1 «FV.N( M-l « N+ 1 H-A2*FMN ( M- l , N ) 

GO T C 500 
2 CO CONTINUE 
C 1= A * ANK 
C ?=— ANE 

C EXECUTE STEP (3.R.I) (EQUATION (3.641) OF PROCEDURE 4 

CALL EC AL ( A KS 1 , AK S2 , S 1 , S2 , E , MXO- 1 ) 

FMN( 2, 1 ) *C1*FMN( 1,1) + C 3* E ( 1 ) 

I c ( LMXQ3 ) GO TO 250 
C2 = -( AA+HH*ANE*ANE) 

DO 2 30 M = 3 , M X Q 

2 30 FMN( y, 1 ) =( FLOAT( 2*M-3 )*C 1*FMN( M- 1 , l ) fFLO AT ( M-2 ) *C2*FMN ( M- 2 , 1 1 
C+C3*gf 'I- l ) ) / FLOAT (M-l) 

250 A1=-ANK/ANF 
A.? = A/ANE 

C EXECUTE STEP ( 3 . R . I I ) (EQUATION (8.65)) OF PROCEOU°E 4 

nn 270 N = 2,MXQ 
MX Ms yx Q— N+ 1 
no 270 Ms 1 » MXM 

2 70 FMN( y, N) =Al*FMN( M+l, N-l )+A2*F*N( M,N-l ) 

500 CONTINUE 

ACCUMULATE CONTRIBUTION OF QUADRILATERAL SIDE TO F 
INTFGPALS FOR USE IN STFP 3 (EQUATION (fi.43)), STEP 4 
(EQUATION (3.44)) AND STFP 5 (EQUATION (3.45)) 

OF PROCEOUPF 1 
DC 690 N=i,MXQ 
GFMN(N)=GENM(N)+ANE*FMN( l,N ) 

MXMsyxQ-N+1 
m 6 80 

GKMN(,M,N)=GKMN(M, N)+ANK*FMN( M,N ) 

680 G A MN ( M , N ) =G AMN ( M , N » ♦ A*EM N( M , M 
6 90 CONTTVUF 
999 F c TtJPN 
END 
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.SUBROUTINE FNKCAL 
C ****** 

C $ U? ° CUT I NE FNKC M 


r 

r 

r 

C 

r 

r 

r 

r. 

r 

r. 

r 

r 


PURPOSE Tn CALCULATE CEP TAIN F INTEGRALS USED TO CP ,J !PUT C THE H 
INTEGRALS INVOLVED IN THE FORMULAS f^d THE SOURCE AND 
DOUBLET PANE! INDUCED VELOCITY INFLUENCE CDEFF IC I r NTS . 
(SEE SECTION 8. 3 OF APPENDIX 8 OF THE ENGINEERING 
DOCUMENT . ) 

INPUT COMMON BLOCK 

/SKATCL/ - LMX03, LMX04, LMY<5 
/ S K A I C 1 / - ANK, ANF.AA, SlI, S2I,HH 
/ S K A I C I / - MXKM?,MXQ«1 

OUTPUT COMMON BLOCK 

/SKAIC2/ - GKNK , GF N'K 


SUBROUTINES 
CAlLFC FCAL 

C DISCUSSION THE P OUT I NF COMPUTES the INTEGRALS F(1,N,K) pop , 

C N = 2,MX3 AND k = ?,MXK-2,2 WHFC r. 

r F( 1,N,K)=I (L,FTA**(N-l )/RHO**K f DL). A DESCRIPTION OF T H c 

CALCULATIONS PFRFURMFD IS CONTAINED IN SECTION 8.3 OF 
f APPENDIX E OF THE ENGINEERING COCUMENT. The RELEVANT 

r FOUATIONS arf (P.66) AND (8.67). THE RELEVANT PROCFOURfS 

C ARE PROCEDURES 4 AND 5. the moE CLOSELY FOLLOWS THE 

C DEVELOPMENT AMP NOTATION OF SECTION 8.3. NOTE THAT 

C FNK( N,K )=F( 1 ,N,K ) . 

C ****** 

LOGICAL LMXC2»LMXC3,LMXC4 t LMXK3,LMXK5f I. MKEX 

C OVM CN/ S K A I CL/ LMX Q2 , L MXQ 3 , L MX C4 , L «XK 3 , L .MXk 5 » LM K F X 

COVMCN/Sk AT Cl/ AKS1 ,AF T 1 , AKS2, AET2.0RM, ELI tEL2 » ELM, ANK , ANE , A, AA , 
CC-G, Si, S 2 » S 1 1 * S 2 I ,HM,HH 

COMMON /SKA I C2/GAK( 21 ) ,GKNK( 5, 5) ,GENK( 5, 5) , GKMNI 6, 6) ,GFMN< 6) * 

CG.AM\ (6,6 I ,Hlil ,FK( 37) ,FNK(fc ,5 ), FMN(6,6 ) ,F ( 37) 

COMMON/ SKAI Cl /MXFK ,MXFKN, MX C NK, mx KM 2 , M X KM4 , MX QM 1 
C OCUATIqmS and PPOCFOURFD REFERENCED IN THIS ROUTINE 

C APE CONTAINED IN APPFNDIX B IN FNG IN FE R I NG DOCUMENT 

r 

C INITIALIZE THE ARFAY FNK USING PREVIOUSLY COMPUTED INTEGRALS 

DO ICO K = l , MXK *12,2 
IDO FNK ( 1,K ) =FK. ( K ) 

TF(|.MXC?) GO T 0 5GG 
DO 15C N = 2 , M X D M 1 
180 FNK ( N, 1 ) =FMN( 1 ,N ) 

TF( L W XK5 ) GO TO 800 

C FXFC'JTp STEPS 4 AMP 8 OF PROCFOllPF 4 DP 8 

CALL FCAL( S 1 1 , S 2 1 ,1. , l • , F » M X K M2 - 1. ) 
no 250 K = 3 , MXK M2 , 2 
C 1 = A * A N 6 
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C STEP A (EQUATION 8.66) 

FNK ( 2,K)=C1*FNK( 1,K)-ANK*E( K- 1 ) /FLOAT (<-?) 

I F < LNXOAI GO TO 250 

r 1 = 2 ,*c i 

C 3 = A A K * A NK 
C? = - ( AA+C3$HH) 

C STEP 5 (EQUATION 8.67) 

00 2 CO N = 3,MX0MI 

200 FNK ( N, K ) =C l*FMK ( N- I, K )+C 2*FNK(N-2, K ) +C3*FNK ( M-2.K-2 ) 

25C CONTINUE 

500 continuf 

C A CO U M UL A TF F INTEGRALS OVER ALL FOUR SIDES OF QUAD 0 ILATE 0 Al 

C r 0F USF IN STEPS 6 (EQUATION 3.45) AND 7 (EQUATION 3. AT) 

C OF PFCCEDURES l, 2 AND 3 

nrj 650 k=1,MXKM2,2 
on 6 PC M = L,NXQM1 

GKMK < N, K)=GK,\!K ( N, K) + ANK* F NK ( N,K ) 

6 80 GENK(N, K )=GE NK ( N, K ) «-AN=*FNK ( N,K ) 

690 CONTINUE 
099 PFTUPN 
END 
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S U HC CUT I NE FKCAL 
C $*.**$* 

C . ^ tj« c ryriNE FKCAL 

C 


r 

C 

r 

r 

r 

r 

r 

r 

C 

C 

r 


P( !C PCSE T n CALCULATE CE c TA IN F INTEGRALS USED TC CO-'PUTF thc h 
INTEGRALS INVOLVED IN THE FORMULAS FD- THE SOURCE AND 
OOUBL E T PANEL INDUCED VELOCITY INFLUENCE COE F F T C I EM T S . 
(SEE SECTION P.3 OF APPENDIX 3 OF THE E N G I N F P o INC 
DOC UN ENT.) 

INPUT COMMON 3 LOC K 

/SKA I CL/ - L U KE X 

/ S K A I C l / - E L l * E L 2 » F LM , A , A A , GG » S 1 , S 2 » S 1 1 , S 2 I » Hf-‘ 
/SKAICI/ - MXFK 


C 

C 

r 

C 

c 

r 

C 


OUTPUT COMMON BLOCK 

/SKAICI/ - M.XFKN 
/SKAIC2/ - G AK * H l l 1 

SUP POUT I NES 
CALLED ECAL 


c o t sc us s i on the routine computes the integrals f<i,i,k) fog 

C. K=L,MXF< WHERE F ( L , 1, K ) = I ( 1 , l ./ FHO**K , 01. ) . A DFSC.R- I oT 1 0 M 

C OF THE CALCULATIONS PERFORMED IS CONTAINED IN SECTION 9.3 

C OF APPENDIX B OF THE F MG I ME - c I NG DOCUMENT. THE RELEVANT 

C EQUATIONS APE (P.60), (B.61), (3.68) AnD (B.6P). THE 

C CELEVANT PROCEDURES ARE 4 AND 5. THE ROUTINE ALSO 

C COMPUTES THE ad CT ANGENT TERMS OF STEP l (EQUATION (9.41)) 

C OF PROCEDURE 1. THE CODE CLOSELY FOLLOWS THE DEVELOPMENT 

C AND N0 T ATIQN OF SFCTIUN R.3. NOTE THAT FNK ( N , K ) =F ( 1 f N , X ) . 

C ****** 


L n G I C AL L M X Q2 , L NX Q 3 , L MX C4 , LMX K 3 , L MXK5 , L MK EX 

COMMCN/SK A I CL/LNXQ2, LMXQ3 ,1 M X C4 , L *x K 3 , L MX K5 , L MK F X 
COMMQN/SK A I Cl/ AKS l , AFT l , A K S 2 , AE T ? , 0 R M , = L l , E L 2 , F l M , A NK , ANE , A f A A , 
CGG.Sl, S2,SII»S2I,HM,HH 

COMMCN/SK a I C2/GAK ( 21 ) ,GK NK ( S , 5) ,C,FNK( 5, 5) , GKMN (6,6),G C MN(6), 
CGAMN (6,6 ) ,H111 ,FK( 37) ,FNK( 6,5 ), F M M ( 6, 6) ,E(37) 

COMMCM/SKAI CI/MXFK ,MXFKM, MXFNK, MXKM2, MX.KM4, MX QM 1 
data DFLFKS.NEK / • 0 1 , 16/ 

C. EQUATIONS AND PROCEDURES REFERENCED IN THIS ROUTINE 

C APE CONTAINED J N APPENDIX 9 OF THE ENGINEERING DOCUMENT 

r 

C EXFCUTE STEP 1 OF PROCEDURE 4 (EQUATION (3.60)) 

IF(EL2) 10,10,20 
10 CATTC.= (S1-ELI)/(S2-EL2) 

GC Tr 90 

20 IE(EL1) 30,30,40 
30 F \TIC=( $1-EIL)*(S2+EL2)/GG 
On TO 50 


40 ° A T I C = ( $2+EL2)/(SI+FLl) 

90 F K ( l )=ALCG( PATIO) 
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IE(LVKFX) 60,55 
55 C l =CG + HM*S 1 

r ?=c,g«-hm*s? 

CALCULATE AMO ACCUMULATE CONTRIBUTION OF QU ADR I L AT fc a L 
SIDE Tn ARCTANGENT TERM of H( 1,1,1) AS DEFINED 8Y 
STFP 1 (EQUATION (B.Al)) OF PROCEDURE l 
Hlll-Hll H-A*FK< 1 >-HM* ATAN2( A*(C l*EL2-C?*El l),Cl*C2*AA*FLl*EL2) 
60 I F( MXFK.L T . 3) GO TO 500 

"RANCH TO PROCEDURE 5 OP A R FSPEC.T IV ELY 
I F ( GG . 1. T , 05LPKS* ( ELM* FLM+GG I I ACC, 200 
200 CONTINUE 

MXFK. A = MXFk 

EXECUTE STEP 2 (EQUATION (B.6l>> OF PROCEDURE A 
CALL FCAL(SU,S2I,ELl , EL 2 , F , MXFK-1 ) 
no 2 50 K = 3 , M X F K , 2 

250 F* (K »=(FL0AT(K > -3)*FK(K-2)+F(K-L) ) / ( FLO A T { K-2 ) *GG I 
GO TO 500 
AOO CONTINUE 

MXFKN=wXFk+NFK 

c XECUTE STEPS 1 AND 2 (EQUATION (^.5 8) AND (R.69)) 

OF PROCEDURE 5 

CALL FCAL<SII,S2T,ELI,EL2,E, 1 mXFKN-1) 

FK ( mxfkN )=0. 

DO A 50 KP = 5 * MXFKN , 2 
K=MXFKN+5-KP 

A50 FK(«-2 )=( FLOAT ( K-2 J *GG*FK ( K * -E( K-l > I/FlO AT ( K-3 * 

5 00 CONTINUE 

ACCUMULATE CONTRIBUTION CF QUADRILATERAL SIDE TO F 
INTEGRALS FOR USE IN STEP 1 (EQUATION (8. AIM AMD 2 
( EQUATION (B.A2)) OF PROCEDURE l AND $TF° 2 
( c OUAT i ON (8.50)) OF PROCEDURE 2 
DO 600 K.*l , MXFK , 2 
600 GAK( K)=GAK( K)+A*FK(K) 

999 PFTUSN 
END 
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S UP p QJT INF GCPC Al. ( NM, >'N, NMl , NNl , ZM, ? A) 
r ****** 

C S UP R OU T I NE GCPC4L { NM , NN t NM 1 , NN 1 , ZM , 7 A ) 

r 

C PURPOSE 

C 
r 

r input 

r 
r 

r 

c 
r 
r 

C OUTPUT 

r 

r 

r SUBROUTINES 

C C^LtFO NONE 

r 

r 0 T SC US S I ON T ME POUTINF COMPUTES AN NM * 1 BY NN * 1 GRID OF of?IN T S 

OFF I V EO F c 0M CORNER POIN T DATA. the POINTS IN Th = G R ! 0 
CONSIST OF THE AVERAGE OF EACH SET OF FOi.JP ADJACENT 
C CORNER POINTS, THE AVERAGF OF EACH SET OF TWO ADJACENT 

f EDGE CORNER POINTS AND THE FOUR EXTREME COcnFF POINTS. 

C THESE doimTS AFF OBTAINED BY COMPUTING APPROXIMATE 

C AVERAGES OF T HF C OF NFP . PHI NTS . 

r ***** * 

DIMENSION ZM(?,NM,NM *Z A ( B, NM. 1, NN1 ) 

DO 09 N = 1 , NN 1 
N1=MAX0(N-1,1) 

N? = M lH r IN.MN) 
pn oft M = l , A M 1 
M 1 = w A X C ( M-l , 1) 

M ? = M I N C ( M , N M ) 
op 9 0 1=1,0 

7 M l ,M ,N l = .?5*( ZM(l,Ml ,N i > *ZM(L ,M2, Nil* 7.MIL ,M1 ,N2)+ZM( L , M2, N2 ) ) 


on 

CUNT I f.| U F 


continue 

99 

CO NT JNUE 


RETURN 


E NO 


TO CONSTRUCT AN NM+1 BY NN* 1 GRID OF JOINTS FROM C OR\'F c 
POINT D A T A 

CALLING SFQUFNCE 

MM - NUMB EF OF COFNER POINTS IN A ROW 
NN - NUMBER OF CORNER POINTS IN A COLUMN 
NM 1 - NUMBER OF GRID POINTS IN A ROW (NM+1) 

NN l - NUMBER Of GP ID POINTS !M A COLUMN I MM* 1 ) 

ZM - COORDINATES OF CORNER POINTS 

CALLING SEQUENCE 

za - coordinates df grid p.oi m ts 
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Sues PUT INF GEO MCI NT , NM,NN,NPA,ZM) 

C ***>*** 

C SUB ROUT INC GFOMC ( NT , NM , NN»NPA, ZM) 

r 

C PUFPCSF 

C 

c 

C INPUT 

r 
C 
C 
r 
r 
c 
c 

c. 

C 

C OUTPUT 

r 

c 

f $ UP c CUT I ME S 

C CALLED SURFIT.CCAL, IPTPNS 

c 

C DISCUSSION THE P OUT I HF CALCULATES AND STORES GEOMETRIC DEFINING 

C QUANTITIES F 0 D EACH PANEL G p A NET WOT K . F I F 5 T THE FOUR 

C GRID POINTS DEFINING T HF PANFL CORNER POINTS APE FOUND. 

C TOGETHER WITH ADJACENT GRID POINTS THESE CCPNFF POINTS 

C APE FED INTO SURFIT WHICH DEFINES THE ACTUAL PANEL 

C SURFACE AND THE LOCAL PANEL COORDINATE SYSTEM. T H C N CCAL 

C IS CALLED TO CALCULATE PANEL MOMFNTS* FINALLY, ALL THE 

C PANEL DEFINING QUANTITIES APE STORED ON A FILE., 

r *##*** 

CCMMCN/LSQSFC/ZK( 3,161 ,WTK ( 16)»AK(6,16) ,NO,NPK 

Common/ PAMDO/CP (3,^),PCm,FC(3»,ARI?,3),APTI3,3),P(Z,4>,A,R,0!AM, 
CC (6,6) , AST( 6,16) , I IS (16) , INS, ITS.NPDQ 
COMMON / I PR I NT /I PNPUT t IPGFCM, IPS TNG, IPCNTP, I POUT P 
DIMFNSICN ZM(3*MM,NN) 

DATA WT / 1 . F 5 / 

I F C I POFOM.NE.Q) PRINT 1001 
1001 FORMAT( 1H1 ) 

C CYCLE THROUGH ALL PANELS IN THE NETWORK 

DO l 99 N=2,NN 
DC 1 <38 V = 2 , NM 
I F = M - 1 ♦ ( N M— 1 ) * ( N— 2 ) + N 0 A 

C ASSEMBLE FOUR GF I D POIN T S DEFINING THE PANEL 

DO 1 10 L = 1 , 3 
CP(L ,1)=ZM(L,M-1,N-I) 

C P ( L , 2 ) - Z M ( L , M- 1 , N ) 

C°(l. ,3) = ZM(L.M,N) 

CP(L ,4)=ZM( L,M,N-l) 

110 CONTINUE 

C ASSEMBLE ADJACENT GRID POINTS AND RESPECTIVE 


TO CALCULATE GEOMF T R IC DEFINING QUANTITIES FOR EACH PANEL 
IN A NETWORK 

CALLING SEQUENCE 
NT - network TYPE 

NM - NUMBER OF SPANWISF CUTS IN NETWORK 

NN - NUMBER OF TRANSVERSE CUTS IN NETWORK 

NPA - TOTAL NUMBER OF PANELS IN ALL PREVIOUS NET WOF K S 

ZM - COORDINATES OF C0PNEP POINTS IN THE NETWORK 

COMMON BLOCK 
/I PRINT/ - IPGFC'M 

COMMON BLOCK 

/PANDQ/ - CP, PC , RO , AP !, AR t , P, A, B,0[ AM, C 
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C WEIGHTS FOR DEFINING CURVED PANEL SURFACE 

N P K = 0 

no l 29 J = 1 , 4 

NJ- MrNC( VAX 0<N+J-3 , I I * MM j 

00 l 2P 1=1*4 

«! = ?' TNO( VAXG( M+T-3, 1 ) * NM ) 

MPK=APK+l 
WTK( NPK )=1. 

1 f|( ( I .CO. 2 ) .HR. ( T. EG. 3) ) .AND. I ( J.EQ.2) .DC. ( J. EQ. 3) )) WTkJNPK I *WT 
DO \?C l. = l , 3 

Z K ( L » NPK ) =Z V ( L t M I ,NJ) 

T c < ( NN.EG.2 I .AND. ( < J. EQ. I ) .OF .( J. B Q.4)) > 

C7KM. ,\ ! PK) = .5*(ZM(L,MI,IH-ZM(L,MI,?) ) 

IF ( I NM .F Q . 2 I . AND . ( ( I . FQ. 1 ) . OP . ( T . 5 0 . 4)11 
CZKM *NPK ) = • S * ( Z M ( L 1 1 » N . J I 7. M I L , 2 » N J ) I 
120 CONTINUE 
•123 CONTINUE 
129 CONTINUE 

1F( I PGECN.NF.GJ PFIM 20C2, IP 
2C0? FOF. MAT (//* danFL* » 14 I 
C DEFINE PANEL SURFACE 

CALL SUP FIT 

CALL tc ANS ( SR , ART, 3 , t ) 

C CALCULATE panel CHARACTERISTIC length 

on* SORT UP ( 1 1 3»“Pt 1. in **2 + < P< 2,3>-P< 2 .1 J 1 **2» 

D24=SGR T H P( 1 ,4I-^( l, 2M**2>< P(2,4)-c(2 ,2n**?I 
DI A M = * M A X i ( 013*024) 

C CALCULATF PANEL MOMENTS FOP l.ATFR USE IN 

C INFLUENCE COEFFICIENT CALCULATIONS 

CALL CCAL(P.C) 

C STORE PANEL DEFINING QUANTITIES ON A FILE 

CALL I P T F N S ( I D ) 

IF( IPGEOV.NE.O) PRINT 1CC2* CP ,PC. R 9, AR, P, A, B, 01 AM 
1002 FORMAT! 6F15.6) 

1 q s CONTINUE 
199 CQN T IN'JE 
P c T ij p m 
F K| D 
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SUBP CUT I NE GR01ND(NM,NN,Z, I, IS) 

C ****** 

SUB" CUT I ME GPOINO < NM , NN , Z , I , I S ) 

PURPOSE TQ ORDER NON-IOENT ICAL POINTS OF AN NM BY NN GR 1 0 nr 
POINTS VIA AN INDEX ARRAY 

INPUT CALLING SEQUENCE 

NM - NUMBER OF GRID POINTS IN A ROW 
NN - NUMBER OF GRID POINTS IN A COLUMN 
Z - COORDINATES OF GRTD POINTS 

OUTPUT CALLING SEOUFNCF 

I - INDEX ARRAY CONTAINING SEQUENCE NUMBER OF FACH GRID 
POINT 

IS - TOTAL NUMBFP OF NON- 1 DENT IC AL POINTS IN A GF ID 

SUBROUTINES 
CALLED PI DENT 

C n l SC US S I CN THE ROUTINE SEOUFNCF S AN NM BY NN GRID OF POINTS. 

C THE SEQUENCING PROCEEDS IN THF OFDER ( ( M= 1 , NM ) , N= 1 , NN ), 

C WHERE (M.N) IS THE POINT IN ROW M AND COLUMN N. ANY POINT 

C IDENTICAL WITH T HE POINT IN THE SAME ROW AND °FFVIOUS 

C COLUMN OR WITH THF POINT in tmp SAME COLUMN AND PREVIOUS 

C ROW IS ASSIGNED thf SAME SEQUENC C NIJM3ER AS THAT POINT. 

C thf SEQUENCE NUMBERS of the GRID POINTS AR c STORED IN AN 

C NM X NN INDEX APR AY AND RETURNED AS OUTPUT ALONG WITH THF 

C TOTAL NUMBFP OF NON- IDFNT I F f FD POINTS. 

C ****** 

LOGICAL IDENT 

DIMENSION Z(3»NM,NN) * I(NM.NN) 

C INITIALIZE SEQUENCE NUMBER 

!S = 0 

C CYCLE THROUGH GF I D POINTS COLUMN-WISF 

DO n<3 N = 1 * N N 

C CYCLF through COLUMN POW-WISF 

DO 9 8 M=1,NM 

IDFN T =.F AL SE. 

C CHFCK IDENTITY WITH POINT IN SAME COLUMN AS PREVIOUS ROW 

IF(M.OT.I) CALL ° IDENT( 7 ( l , M, M ,Z ( L , M-l ,N» , IDENTI 
I F f IDENT ) MM,NI = I< M-l.Nl 
I F ( IDENT ) GO TO 98 

C CHECK IDENTITY WITH POINT IN SAME ROW AND PREVIOUS COLUMN 

IFCN.GT.11 CALL PIOFNTCZI 1, M,N) ,Z(1,M,N-1), IDFNT) 

IF (IDFNT) I (m,n)=I (M,N-1 ) 

I F ( IDENT ) GO T 0 98 

r BUMP SEQUENCE NUMBFP IF POINT IS NFW 

I S= I S+l 

n m t n ) = i s 

08 CONTINUE 
99 CONTINUE 
RETURN 
END 
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SIJB° CUT INF INTCAL 

C * 

C StJfPCUTINF INTCAL 

r 

C PIJPPCSE TP COMPUTE T HF H INTEGRALS INVOLVED IN THE FORMULAS FOP 

C the SOURCE AND DOUBLET PANEL INDUCED VELOCITY INFLUENCE 

C COEFFICIENTS. (SEE SECTION 8.3 OF APPENDIX 3 OF T HF 

C ENGINEERING DOCUMENT.) 

r 

C tndijt COMMON '3 LOCK 

C /INTO/ - M X 0 , M X K 

/ D I V I NT / - X ,o , AC , RC,0 IA M 

OUTPUT COMMON 3 LOCK 

/INTO/ - H » H 7 , 1 M 

SUSP CUT I NES 

CALLEC SIOECLf TFF.O* T?NSFP , FKC AL , F MNC A L , FNKC A L 

DISCUSS! CN THE ROUTINE CALCULATES THE INTEGRALS 

H( M,N, K) =1 ( S IGMA.KSE** ( M- 1 ) *ET A **( N- 1 ) /R HO **K. ♦ DK S E *0 c T A ) 
FOR M=I,MXQ AMD N=l,MXQ-rM+l AND K=1,MXK,2. 

A DESCRIPTION OF THE CALCULATIONS PFR FORMED IS CONTAINED 
IN S C C T I ON 8.3 OF APPENDIX R OF THE ENGINEERING 
C DOCUMENT. THE ROUTINE CAN BE DIVIDED IN r O TH= ff PARTS. 

C IN THE F ip ST PART PRELIMINARY QUANTITIES CONCERNING THE 

C GEOMETRIC RELATIONSHIP OF T H f FIELD POINT TQ THE 

C QUADRILATERAL APE CALCULATED. IN THE SECOND PACT THE 

C F INTEGRALS APE CALCULATED FOP EACH SIDE OF THF 

C OUADRIL ATFCAL AND ACCUMULATED. IN ThE THIRD PART 

C PROCEDURE 1,2 OP 3 IS EXECUTED. 

C *** *** 

LOGICAL LMXC2.l.MXQ3,LMXCA,LMXK3»LMXK5,LMKEX 

COMMON/ INTQ/Hl 6, 6,71 , HZ, IH, VXC, MXK 

COMMON/ PI VI NT/XI 3 ) ,P( 2,A) , AC,BC,D! AM,C( 6,6) ,DV( 3,6) ,NTST,NCF 
COMMCN/SIDEQ/OSIOEI 12, A) 

COMMCN/SKA! CL/L 3XQ2 ,LMXC3, L MXC4,LMXK3,L MXK5, LMK p X 
CCMMCN/SKAIC1/AKS1,AET1 ,AKS?,AfT2,DRm,cl1,EL2,ELM,ank,ANF,a,AA, 

C GG , S 1 , S 2 , S 1 1 , S 2 ! , HM , KH 

COMMON /SKA I C2/GAKI21 ) ,GKNK ( 5, 5) ,GENK( 5, 5) , GKMN< 6, fc) , GEMN ( 6 ) , 

CGA (6,6),HIIL» c K(37) , FN K ( 6 , 5 ) « F MN ( 6 « 6 ) ,E(37) 

COMMCM /SKA I Cl / MXFK ,MXFKN, MX FMK, MXKM2 , MX KM A , MX QM 1 
DIMENSION Q ( 2 ) 
data O r L TH / .01 / 

data dflth; /l.F-a/ 

DATA NHKEX / 16/ 

C ^CUATIONS AND PPOCFDUPFR FECEPENCED in THIS ROUTINE APE 

C CONTAINED IN APPENDIX B Op THE ENGINEERING DOCUMENT 

C 

C CALCULATE QUANTITIES ASSOCIATED WITH GEOMETRICAL RELATIONSHIP 

C OF FIELD POINT to QUADRILATERAL 

CALL STDECL(O.DSMIN,D) 
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C CALCULATE H OF EQUATION (8.14) 

HZ = X(3)-AC«Q( 1)*Q( I )-BC*Q( 2 )*C( 2) 
TF<AeS(HM.LT.O£LTHZ*DIAM) HZ=0. 

HM=A8S( HZ ) 

WH=HZ*HZ 

L,vkfv = hM.LT . (D5LTH*OSMIN ) 

T H = C 

IF( L MX EX .AND. ( D. EQ.3. ) ) IH= 1 

C SET INDICES AND LOGICAL VARIABLES FOP FUTURE BRANCHES 

mykm2=mxk-2 
mxkWA=mXK-4 
MXQM 1 = ,MXC-I 
LM Y C2=NXC.LT.2 
LMXQ3=MXC.L T .3 
L mxQ4=MXC.LT.4 
1_MXK3 = m XK.L t .3 
LMXK5=MXK.LT.5 
MX F '< =MYK-2 

IF(LMKEX) mxfk=mxfk+nhkex 
CALL ZEROIGAK, L50) 

C CALCULATE AND ACCUMULATE F INTEGRALS OVER FOUR SIDES 

C OF QUADRILATERAL 

on 500 l S~ 1*4 

CALL TRNSFP ( OS I DE ( I, I S), AKSl, 12) 

C IGNORE SIDE IF LENGTH IS ZERO 

IFIDdm.EQ.O.) GO Tn 500 

CALCULATE FURTHER QUANTITIES ASSOCIATED WITH 
RELATIONSHIP OF FI F| D POINT TO QUADRILATERAL 

gg-.aa+hh 
SIS = Fl L*ELl+GG 

S2S=EL2*EL2 + GG 
S 1 = SCR T ( SIS ) 

S2=SQRT(S2S) 

S1I = 1. /SI 
S2I* l./S? 

C CALCULATE F(l,l,K) INTEGRALS 

CALL FKCAL 
I F ( L MX Q2 ) GO to 50C 

C CALCULATE FM,N«l) INTEGRALS 

CALL FMNCAL 
I*=( L M XK3 ) GO TO 500 

C CALCULATE F(I,N,K) INTEGRALS 

C A | l FNKCAL 
50 0 continue 

C BRANCH TO PROCEDURE 1 OR PROCEDURE 2 

IF ( L V KEX ) 675,625 

C EXECUTE STEP 1 OF PROCEDURE l 

625 H( l, l, 1)=HHL 

I F C LMXK? ) GO TO 700 

C EXECUTE STEP 2 (EQUATION (B.42)> OF PROCEDURE L 

DO 650 K=3,MXK,2 

6 50 H ( I , 1,K) =( FLOAT (K-4)*H( 1 , 1, K-2) +GAK ( K-2 ) ) / ( FL OAT { K-2 ) *HH ) 
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c 

675 

C 


68 0 


6 99 
700 
C 
C 


760 


7 70 

C 


7 30 

7°0 

800 

C 


3 70 


8 80 
390 
900 
C 


990 

999 


on to to c 

EXECUTE STE P 1 (EQUATION (B.49II OF PROCEDURE 2 
7 . =9 . 

EXECUTE STEP 2 (EQUATION ( B. 50 > ) OF PROCEDURE 2 
DO 589 KP=2,NHKEX,2 

k=nhk?x+mxk-kp+2 

7=( HH*FLCAT (K-2) *Z-GAK(K-2) )/FLOAT( k-4) 

H( l, i,MXK ) = 2 
I F ( LMXK3) on TO 700 
DO 650 KP=3,MXK,2 
K=MXK-KP+3 

H( I , 1, K-2) =<HH*FLOAT( K-2 I *H< I , 1 , K)-GAK( K -2 » )/FLDAT( K-4 ) 

I F ( L MX C2 ) DO TO 999 

EXECUTE STEM’S 3 AND A (EQUATION (3.4-3) AND (8.44)) 

OF PCfTCEDUPt 1 

M( 1 , 2, l) = .5*(HH*G«=MN( l)+GAVN( I, 2) ) 

M X \: = y X Q— 1 

DC; 760 N = 1.MXN 

H ( 2 » N« 1 ) = 1HH*GKMN( l , N ) +G A MN ( 2 ,M I ) /F LOAT ( N+ L ) 

I F ( L V X 03 ) GO TO 800 
DO 770 N=3,MXQ 

M( l , N, 1 ) = (HH*( -FLOAT (N-? )*H< I ,M-2» 1 ) +GE VN(N-l) )«-GAMN( l , N) I / . 
CFLCAT(N) 

EXECUTE STE 0 5 (EQUATION (3.45)) OF PROCEDURE l 
On 790 y =3.MX3 

M XN = MX 0- v + l 

DO 7 80 N = 1 » M XN 

H ( M, N, 1 ) = (HH*( -FLOAT ( M-2 » *H ( M-2 » N , l I + GK.MN ( M-l , N) ) «-G AMN ( M , *'■ 1 ) / 
f FLOAT! N+M-l ) 
r n-xjr r i j E 

IF ( L PXR 3 ) GO TO 999 

EXECUTE ste^S 5 AND 6 (EQUATIONS ( * . 46 1 AND (3.47)) 

OF PPCCEOUOE 1 
DO 890 K=3*MXK,2 
FACTK- l./FL0AT(K-2) 

M X N = y X 0- I 

no 9 70 N = 1 . MXN 

H ( 2 * N * K ) =-F ACTK*GKNK( N.K-2 ) 

H( 1, 2t < ) =-F ACTX^GFNK ( l, K-2) 

I F ( L M X Q 3 ) GC T .) 390 
00 8 89 N =3 1 MXQ 

H( 1 ,N, K) = F ACTK*( FLOAT (N-2 ) *H( I , N-2 , K-2 ) -GENK( N- I ,K-2 ) ) 

CONTINUE. .. . .. ' 

T F ( LPXG3 ) GO TO 999 

EXECUTE STEP 8 (EQUATION (B.48) OF PROCEDURE 1 
DC 599 K=3,VXK,2 
DO 990 M = 3 ♦ M X0 
MXN=MXC— - y *l 
DO 9 90 N = L » MXN 

H( M, N, K) =-H(M-2» N*-2. K )-HH*H( M-2,Ni K ) «-H( M-2» N, K-2 ) 

RETURN 

END 
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SUBROUTINE KSORT ( A , M , N.KEY, W) 

S UP- P CUT I NE KSQPT 

PU C D CSE TO SORT THE COLUMN OF A TWO-DIMENSIONAL ARRAY USING THE 
GIVEN KEY INDEX ARRAY 

I NPIJ T CALLING SEQUENCE 

A - ARRAY OF WHICH THE COLUMN IS TO 8 F SORTED 
M - NUMBER OF ROWS OF A 
N - NUMBER. OF COLUMNS OF A 
KEY - ARRAY CONSISTS OF GIVEN KEY INDICES 
W - WORKING ARRAY OF SAME DIMENSION AS A 


OUT °UT CALLING SEQUENCE 

A - thf SORTED ART AY 

C 

c SUBROUTINES 

r CALLED NONE 

C 

c DISCUSSION The CONTENTS OF ARRAY A ARE STORED IN 4 WORKING ARRAY 

C USING THE INDICFS GIVEN IN. KEY AR P AY . WOP K INC, ARRAY !$ 

r THEN TP 4NSFFPE0 BACK TO ARRAY A. 

C ****** 

DIMENSION A ( M , l ) , KEY< I ) , W ( K , 1 ) 

DO 10 J = I * N 
K = KEY(J) 

DO 10 T=l»M 
1C W ( I t K j = A ( I , J ) 

DO 20 J = 1 * N 
DO 20 1=1, M 
20 A ( I , J) = W ( T , J ) 

RETURN 


FNr 


* 
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SUBROUTINE LSCSF 

C 

C SUSP CUT l NE LSQSF 

P U c D C S F TO FIND the GENERALIZED INVERSE FFOM A LEAST SCUFFS C IT 

INPUT COMMON BLOCK 

/l.SCSFf/ - 7 K , W T K» NOt N PK 

OUTPL t COMMON BLOCK 
/L SQSFC / - AK 


SUBftCUT INES 

C ALL EC TPAN.S,»'»*ULT,PDSrC*S 


DISCUSSION THE POUT INF FIPST FORMS THE WEIGHTED NORMAL EQUATION 
IT t H FN CALLS ROUTINE USING CHQLFSKY SCHEME Tfi $r>LVF TH 
SYSTEM OF FCUATIQNS AND FINDS THE GENERAL I ZED INVERSE. 

THE SYSTEM OF EQUATIONS IS NOT POSITIVE OFF IN I T E , AN ERR- 
OR MESSAGE WILL PF PRINTED AND EXECUTION OF THE CO M Pl ! TF c 
PROGRAM WILL BE TERMINATED. 

C CMMCN/L SOSFC /7K (3,16 »,WTK( 16 I, AK(6, LSI ,NO,NPK 
DIMENSION V(So),C(96) ,B( 36) 

N T — 6 

!F((NO.LT.2).nP.(NPK.LT.6) ) NT = 3 
I F ( (MO.LT. 1J.CIP. (A4PK.LT. 3) ) N 1= 1 

FORMS A RECTANGULAR SYSTEM OF E QUA T l ON S V 
FROM LEAST SQUARES FIT 


DO 2 50 K = 1,NPK 
L =N I * ( K— 1 ) 

v ( i. + n = i . 

IFINI.LT*?) go TO 2C 0 
V(t +2)=ZK( 1,K) 

V(l+3)=ZK(?,K) 

IF1NI.LT. 4) GO TO 2CC 
V(L*4) = .5*7K<l,KJ*7K<l,K) 

V ( L + 5 ) = 7 K ( l , K ) * 7. K (2»K ) 

V(L*6)=.5*7K(2,KI*ZK(2,K) 

2GO CON T INUE 

C MULTIPLIES V BY A 01 AGONAL MATRIX WTK 

r -CONSISTS OF GIVEN WEIGHTS 

DO 225 1=1, MI 


L=I+NI*(K— 1) 

C ( L ) =WTK ( K ) *V( L ) 

225 CONTINUE 
250 CONTINUE 

C FORMS THF WEIGHTED NORMAL EQUATIONS 

CALL TRANS ( V,AK, MI ,NPK ) 

CALL m MULTI C,AK,P,MI ,UPK,NI ) 

C CALLS POUTINE USING CHQLESKY SCHEME TO 

C SOL VF THE NORMAL EQUATIONS ANO OBTAINS 
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c the generalized inverse 

CALL PDSEQS ( B , N I « N I , V , C , N'PK , 0 1 1 
I F ( Dl.NE.O.O) GO TO 35C 
P«! NT 3CC 

30 G F0 C MAT( //* NO 0 MAL EQUATIONS APPEARS SINGULAR*) 

RETURN 

350 CONTINUE 

C STORES THE GENERALIZED INVERSE IN Arc AY £ K 

DC 499 K = 1 » N P K 
no '•* 75 1 = 1,6 
475 AK< I , K ) = 0 . 

DO 450 I * I# NT 
L = I ♦M*{K-L) 

A K ( I , K I = C ( L ) 

45 0 C 0N T IN' Up 
499 CONTINUE 
PET URN 
END 


126 



S U3R OUT I NE PIDENT(P,Q, IDENT ) 

C *$♦*** 

C S U 8 P CUT ! NE PTDENT ( P,Q» IDFM T ) 

r 

C PU"°CSE TO DETERMINE WHETHER THE POINTS P AND Q ARE TO RE 

C CONS I OF P ED NUMERICALLY IDENTICAL 

C 

C INPUT CALLING SFOUEMCE 

C P - COORDINATES OF FIPST POINT 

C Q - COORDINATES OF SECOND POINT 

C 

C OUTPUT CALLING SEQUENCE 

r IDENT - LOGICAL VAR U 8 LE EQUAL TO TRUF IF P A NO Q A c F 

C CONSIDERED IDENTICAL AND FALSE OTHERWISE 

r 

E SUBROUTINES 

C CALLED NONE 

C 

C DISCUSSION THE ROUTINE DETERMINES WHETHER THE POINTS P AMD 0 ARE 

C CONSIDERED NUMERICALLY IDENTICAL. THE CRITERIA FOR 

C IDENTITY IS THAT THE DISTANCE FROM P TO 0 MUST RE SMALLER 

C THAN OP EQUAL TO l.E-12 TIMES THE SUM OF THE LENGTHS OF 

C ' P AND 0 . 

0 ****** 

LOGICAL I DE N T 
D IMF NS ION P( 3> ♦ 0 1 3) 

D AT 4 DELTA /l.E-12/ 

SC. AL F= SORT ( P ( 1 ) **2*P ( 2 ) **2 + P ( 3 ) **2 I +SQR T ( Q ( 1 >**2+Q( ?)**2+Q(3)**2» 

I DENT* U P( 1 )-Q(Ii I **2+{P (2) -Q( 2) )**2+( P ( 33-01 3) >**2) . I. F . 

C( ( SCALE*CEL T A )**2 ) 

RETUPN 

END 
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S UB? CUT I NE PIVC(Z) 
C ****** 


c 

c 

r 

C 

c 

r 

C 


SUBROUTINE PIVC 

PUP PCS E TO OBTAIN DCU3LFT PANFL INFLUENCE COEFFICIENTS FOP 
FN CONTROL POINT 

INPUT CALLING SEQUENCE 

Z - X,Y t l COORDINATES OF A GIVEN CONTROL POINT 
COMMON 3LOCK 

/PANDQ/ - RO,AP ,ART,P,A,B,DIAM,C 
/symm/ - nsymm 
/ZIP/ - IPZ , IP 


A G I V- 


CUTPUT COMMON BLOCK 
/PIVM/ - DVOS 


SUBPCUTINES 

CALLED UNIPAN, DIPV,MMtJLT 

DISCUSSION THF ROUTINE FIRST TRANSFERS SOME OF PANEL INFORMATION 
TO BE USED BY the INTEGRATION ROUTINE. IT THEN CALLS ,THF 
INTEGRATION ROUTINE TO PPOVIDF INFLUENCE COEFFICIFNTS FOP 
A GIVEN CONTROL POINT INDUCED BY DOUBLET DISTRIBUTION OF 
THF SPECIFIED PANFL AND ITS IMAGE (WHEN NSYMM IS SFT TO 1 
). THE INFLUENCE COEFFICIENTS APE MODI FIFO TO ACCOUNT F OF 
THE CASE WHEN THE GIVEN CONTROL POINT IS LOCATED ON THE 
INFLUENCING PANEL I T S P L F ( SER ENGINEERING DOC U M FN T - ARPr 
-DYNAMIC INFLUENCE C CEEF I C I ENT S I . 

COMMCN/PANDQ/CPC 3,4) , PC( 3 ) , PC I 3 ) , AR ( 3, 3 ) , ART ( 3 , 3 ) , P ( 2 , 4) , A , 0 , D I AM, 
C C(6,6) ,AST( 6,16), 1 1 S ( 16) ,INS, ITS*NPOQ 
COMMON /PIV!NT/XX(3) ,PP( 8),AA,3P,D0IAM,CC( 36) ,DV0V(3,6),NTST,NCF 
COMMON/ PIVM/ DVDS ( 3,6) 

COMMON/ SYMM /NSYMM 

COMMON /ZIP/TPZ, IP,ITZ,JCZ 

DIMENSION Z(3) ,W( 3) ,DVS( 3,6 ),GDVDV( 3,6) 

SETS NUMBER OF TERMS OF LEAST SQUARES FIT 
FOR DOUBLET DISTRIBUTION 

TRANSFERS SOME OF PANEL INFORMATION TO 8F 
USED BY THF INTEGRATION ROUTINE 


Rftc ARRAYS D VS AND DVDS TO ZERO 

CALL Z FRG(DVS,IS) 

CALL ZEPOIDVDS, 18) 


NT. ST = 6 

r 

r 

A A = A 
B B = 8 

00 I AM = DTAM 
HP PC 1=1,36 

?o rc(ii*cm 

00 ICO 1=1,8 
ICO PP( I ) = P( I ) 

c 
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c 

c 

c 

r 


C. 

r 

C 


16 --! 


175 

20 0 
AGO 


CRTIANS INFLUENCE COEFFICIENTS FOF A 
GIVEN CONTROL POINT INDUCED BY OPURL FT 
DISTRIBUTION OF THE SPECIFIED ° A N E L AND 
ITS IMAGE (WHEN NSYMM=L) 

W( 1 )=Z( 1) 

W(3)=7<3) 
no 2 CD I SYMM=l , 2 
S I GN=3— 2*1 S YMM 
W(?)=SIGN*7(?) 

CALL UNI PAN! AP , 0.0. W, XXI 

I F ( ITS.F0.2) CALL DPIV 

CALL NMULTI APT , QVOV , GDVD V « 3 , 3 , 6 ) 

I F ( I SYMM.NE. l.DR . IP.NE.IPZ ) GO TO 160 

TO ACCOUNT FQP THE CASE WHEN THE GIVFN 
CONTROL POINT IS LOCATFO ON THE INF l US\C 
ING PANEL ITSELF 

HALF = -0.5 

HX I = H ALF *XX ( l ) 

HETA = HAL F *XX ( 2 ) 

D V S ( I»?) = HALF 

DVS( 1 » A ) = H X I 
CVS (1,5) = HpT a 
DVSI 7.3) = HALF 
D V S < 2,5) = HX I 
f) V S ( 2.6) = HETA 

CALL NNI.ILTI ART f OVS , DVDS , 3 , 3 , 6 ) 

C OUT TNIJE 
Dn 175 1=1,6 

DVDS (If!) = DVDS ( l , I ) GDV0V(1,I) 

DVnS(2,I) = DVDS (2,1) + S IGN*GDVDV( 7 . , I I 
D'/D S (3,1) = DVDS ( 3 , T ) ♦ 0DVDV(3,I) 

CC1NT I NUE 

IF(NSY.wm.FQ.O) GO TO ADO 

CONTINUE 

CONT InUE 

PFTUPN 

FND 
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SUBROUTINE SIDECL(W,DSMIN,D) 

r SUB SCU TINE SIDECL (W,DSMIN,D) 

C 

r PUP PC SF TO COMPUTE GEOMETRIC QUANTITIES ASSOCIATED WITH THE 

r RELATIONSHIP of the field point to the quadrilateral 

sigma for use in COMPUTING THE H INTEGRALS. ( SEE FIGURE 30 
AND SECTION P.3 OF APPENDIX 0 CE THE ENGINEERING 
DOCUMENT. ) 


INPUT COMMON BLOCK 

/PIVTNT/ - X,P 

OUTPUT CALLING SEQUENCE 

W - POINT ON QUADRILATERAL CLOSEST TO PROJECTION OF FIELD 
POINT ONTO QUADRILATERAL PLANE 
DSMIN - MINIMUM DISTANCF OP PROJECTION OF FIELD POINT 
ONTO QUADRILATERAL PLANE TO PERIMETER OF 
QUADP IL ATEP AL 

D - DISTANCE FFOM W TO PROJECTION OF FIELD POINT ONTO 
QUADRILATERAL "LANE 

\ 

COMMON BLOCK 
/.SIDED/ - QSIOE 

/SKAfCl/ - AKS1 , AETI ,AKS2 , AET2 , DP.M, EL 1 , EL2 ,ELM, ANK , ANE, 

A f AA 


SUePCUTI NES 
CALLED TRNSFR 

DISCUSSION THE ROUTINE COMPUTES GEOMETRIC QUANTITIES ASSOCIATED 
WITH THE RELATIONSHIP OF THE QUADRILATERAL SIGMA TO T H F 
PROJECTION GF THE FIELD POINT ONTO THE QUADRILATERAL 
PLANE. IN PARTICULAR THE ROUTINE DETERMINES WHETHER THE 
PROJECTION LIES INSIDE OR OUTSIDE OF THE QUADRILATERAL 
AS WELL AS CALCULATES THR MINIMUM DISTANCE FROM THE 
PROJECTION TO THE PERIMETER OF THE QUADRILATERAL. 

QTHFO QUANTITIES COMPU T ED INCLUDE THOSE QUANTITIES 
DISPLAYED IN FIGURE 31 AND DISCUSSED IN SECTION 
3.3 OF APPENDIX R OF T HE ENGINEERING DOCUMENT. THE 
QUANTITIES ASSOCIATED WITH THE QUADRILATERAL IN GENERAL 
ARE RETURNED VIA the CALL LIST WHEREAS THE QUANTITIES 
ASSOCIATED WITH EACH SIDE OF THE QUADP I L ATER AL APE 
STORED IN A COMMON 8L0CK ARRAY A SIDE AT A TIME. 


COMMGN/P IVINT/Xl 3 I , P ( 2 ♦ A » , AC , 8C t DI A M,C ( 6, 6 ) ,DV i 3 , 6) , NTST , NC F 
COMMOn/SIDEQ/OS I DEI 12,^) 

COMMON/SKAICl/AKSlt AETI, AKS 2, AE T2 . D® M, EL 1 , EL 2 , ELM , ANK ♦ ANE , A , A A f 
CGG,S1,S2.S1T,S2I ,HM,HH 
DIMENSION W ( 2 ) 

•QUANTITIES AND PROCEDURES REFERENCED IN THIS ROUTINE ARE 
DISCUSSED IN APPENDIX 0 OF THE ENGINEERING DOCUMENT 
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o=c. 

NNC T =0 
Njp ST =0 

I sa=c 

r CYCLE TH COUCH SIDES OF QUADRILATERAL 

DO 5 CD I S=l »4 
ISP1=MQD< I S » 4 ) + 1 

C CALCULATE QUANTITIES OISPLAYFO f.N FIGURE 31 

AKS1 = P( 1, IS )-X < l) 

AET1=P(?, IS J-X(2) 

A K S 2 = ° ( I , ISP 1 ) - X ( 1 » 

AF T 2=P< 2, I S P 1 1 — X ( 2) 

DKS = AK S2-AK SI 
f3ET = ACT2-AETl 
OF fa SORT ( DKS*DK.S*DET*DET ) 

C IGNO c E S I DF IF LENGTH IS ZERO 

IF ( DRM.EG.O. ) GO Tn 5 CO 
I SA= ISA+1 
= 1. / CPM 

a=:OPFI*( AKS1*AFT2-AKS2*AET1 ) 

A A=A *A 

AMK. = O s «I *DET 
ANF=— nSNI^DKS 

EL 1 = HR M I *{ AKSl*DKS + AETI*DET) 

EL 2 = DR V I *( AKS2*OKS + AET2*OE T ) 

COMPUTE INCREMENT OF INTEGERS WHICH WILL EVENTUALLY 
DETERMINE WHETHER THE FIELD POTM T PROJECTION ONTO Thf 
QUADRILATERAL P L AN t LIES INSIDE OF OUTSIDE THE QUADRILATERAL 
TFIA.GT.O.) NPST=NPST+1 

B=AKS1*AKS2+ACT1*AFT2 

I r ( ( A.GT.G. ) .AND. (3.1 T.O. ) I NNC T = NNC T ♦ 1 
C CALCULATE MINIMUM DISTANCE FROM FIELD POINT TO QU ADR I L ATER Al 

C SIDE 

T F ( £1 1 *FL 2 J 75,75,e5 
75 FLM=C. 

GO TC ED 

R5 FI. Ms SIGN (AM INK ABS(FLl) , ARSIEL2) ),ELH 
DC D T $= FL M*Fl M + A A 

IF(( TSA.CT. I ). AND. IDIS.GT.pl) GO r 0 5C0 

0=0 I s 

! SS= I S 

r STORE CALCULATED QUANTITIES FOP EACH SIDE 

500 CALL Tc.NSFR ( AkSI ,QS IDF( 1 ,1 S ) , 12 ) 

n = SQPT(D ) 

OSM I N=D 

C BRANCH TO 730 OF BCD DEPENDING UPON WHETHER FIFt.O PP, I NT 

C PROJECTION LIES INSIDE OP OUTSIDE CU ADP ! L A T FR A L 

! c ( ( NPST.F0.4) .OR . ( INPST.EQ.3I.AND. ( M M CT.Gf:.2) ) ) 700, 300 

700 0=Q. 

v<( n=x( i j 

W ( 2 ) = X ( 2 ) 

RETURN 

C RETRIEVE CALCULATED QUANTITIES FQP SIDE CONTAINING POINT 
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CLOSEST TQ FIELD POINT PRCJECTTON AND CALCULATE 
COORDINATES OP THAT POINT 
CALL T PNSFP(QSIi)E(I » ISS) »AKSL»12) 

W< 1 t=X ( I ) + A*ANK-ELM*ANF 
Vi ?) =X ( 2)+A«AMF+ELM*ANK 
RETURN 
END 
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SU3P CUT I NE SING(NT,NM,NN,NS ,NSA,NPA, ZM) 

C ****** 

SUB 5 TUT I NE SING ( NT , \'M, NN , NS , NS A , N» A , 7M » 

PU-PCSB Tn CALCULATE THF SINGULARITY DISTRIBUTION DEFINING 
QUANTITIES FOF A GIVEN N E T W f" 1 c K 

INPUT CALLING SEQUENCE 
MT - NETWOFK T Y °F 

NM - NUMBER OF SPANWISE CUTS IN THE NETWORK 
NN - NUN RE 5 OF TRANSVERSE CUTS IN THE NETWORK 
NS A - TOTAL NIJMBEP OF S I NGUl. AF [ T Y PARAMETERS IN ALL 
PREVIOUS NETWORKS 

NP A - TOTAL NUMBER OE PANELS IN ALL PREVIOUS NR TWO" KS 
ZM - COORDINATES OF CORNER POINTS IN THE NETWORK 

COMMON BLOCK 
/I PRINT/ - IPS I NG 
/PANDQ/ - F C » A P 

OUTPUT CALLING SFOUTNCe 

NS - NUMBER OE SINGULARITY PARAMETERS IN THE NE TW r ^K 
COMMON BLOCK. 

/P ANDO/ - AST, I IS, INS, ITS 
SUBROUTINES 

CALLED GCPCAL,GRDINO, PTPMS,UNI PAN, LSQSF , I PTRNS 

DISCUSSION THE ROUTINF CALCULATES THE DEPENDENCE OF EACH PANEL 

SINGULARITY STRENGTH DISTRIBUTION ON THE FREE SINGULARITY 
PARAMETERS OF THE NETWORK. SEPARATE COMPUTATIONS APE 
PERFORMED FOF EACH NETWORK TYPE. FIRST THE LOCATIONS OF 
THE FOEE SINGULARITY PARAMETER nN THE NETWORK APE 
COMPUTED AND INDEXED. FOR EACH PANEL THE SINGULARITY 
PARAMETERS AFFECTING THE DISTRIBUTION OF SINGULARITY 
STRENGTH ON THAT PANEL ARE ISOLATED. EACH SUCH 
PAR AM F T E R IS ASSIGNED A WEIGHT (LARGE I c THE PAF AMF TE 0 
ACTUALLY LIES ON T HE PANEL!. THE PANEL SINGULARITY 
DISTRIBUTION IS Turn OBTAINED BY FITTING A QUADRATIC 
FORM (IF THF SINGULARITY IS CT DOUBLET TYPE! TO T HF ' 
PARAMETERS BY T HF METHOD °F LEAST SQUARES. THE M ATfiIX 
WHICH DELATES THE COEFFICIENTS OF THE DISTRIBUTION T0 
THE SINGULARITY PARAMETERS IS THEN STORED ON A FILE ALONG 
WITH INDICES IDENTIFYING THF PARAMETERS. 

CCMMCN/L SQSFC/ZK ( B, 16 >,WTK( 16 !, AK( 6, 16) ,NO,NPK 

CCMMON/OANDQ/CP ( B,4I,PC(3!,RD(3),AF(3,B!,AkT(3,3),P(2,4),A,B,DTAM, 
CC ( 6,61 ,AST( 6.16) , I I S ( 1M , INS, !TS,N°QQ 
COMMON /SKPCH1/ 7.A { 3 , 175) , IA ( L73 ) 

COMMON /IPP INT/IPNPUT , I P GEO M, I PS TNG, T PC NT P , I P F I VC , IPOUTP 
DIMENSION Z M ( 3 , NM , NN ) 
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1001 


c 


c 

100 

c. 

c 


125 


128 

129 


148 

149 

198 

199 


DIMENSION ZPK( 3 ) 

DATA WT /1.E5/ 

IF( I PS I NG .N c • 0 ) POINT 1001 
FORMAT! 1 H 1 I 
NNl = N;N + 1 
NM1=NM+1 

CALCULATE LOCATION OF SINGULARITY PARAMETERS 
CALL GC °C AL ( NM , N'l » NM l ,NN i , 7 M, Z A ) 

OFDER MON-IDENTICAL SINGULARITY PARA METFR S 
C A l L GPD I NO ( NM l , NN 1 » 7 A 1 1 A , M I A ) 

TRANSFER TO CODE FOR APPROPRIATE NETWORK TYPE 
GO TC ( ICO, 209,300, 400*500, 600,6001 NT 
CONT INiJR 

SCURCE/AMALYS I S NETWORK CALCULATIONS 
(NOT AN OPTION IN PRESEn t PROGRAM) 

CO 199 N=2,NN 
DO I <38 V = 2,NM 
IP = M-l+(NM-n*(N-2»+NPA 
CALL PTRKS! IP) 

T TS = 1 

N px = C 

00 129 J = 1 , 3 
NJ=N+J-2 

IF! ( NJ .LT. 2 ) .OR . ( NJ.G-T.NN) ) GO TO 129 
DO 128 1=1,3 

M I = M -f I - ? 

IF! ( MI .LI. 2 ) .OP. ( MI.C-T.NMI) GO TO 128 
NPK = NP K +• 1 

ITS! N p K ) *M f — !♦( NM— l ) * ( NJ -? ) +NS A 
LMN= W I +N M 1 * ( NJ - 1 ) 

DO 1 25 1=1, 3 
Z PK ( I ) -7 A ( L ,LMN) 

CONT JNiJF 

CALL UN I PAN! AR ,»0,ZPK,7PKI 
Z K ( l ,NPK ) = 7 PK( 1) 

ZK (2 , NPK ) = Z RK ( 2 ) 

WTK< NPK |*l, 

IF ( ( I.E0.2) .AND. ( J.tC.2) ) W TM NPK ) = WT 
FONT tNUE 
cn.NT rNUE 
J N $ = ^ P K 
N0= 1 

CALL LSCSF 
DO 149 K=l,MPK 
DO 148 1=1,3 
AST! I , K ) = AK ( T , K ) 

CONT JNUE 
CONTINUE 
CAIL IPTRNS(IP) 

CON T INUE 
CONT INUE 
NS=( NN-l ) 
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on Tr bog 

2 GO CCA-TINUE 

0 UCUBL ET/ ANAL YS I S (WING) NETWORK CALCULATIONS 

C cvcle through ALL PANELS IN THE NETWORK 

nn ?99 N = 2 » N N 
HO 29° *=2,NM 
I p = m- 1 ♦ ( NM- l K ( N- 2 ) +N P A 

C RETRIEVE PANEL GEOMETRY DEFINING QUANTITIES 

CALL PTPNSI I P J 
I TS= 2 
NPK = n 

C CALCULATE LOCATIONS OF S I NGULAP TTY PARAMETERS 

C AFFECTING PANFL SINGULARITY PI STR TBL'T ION 

DO 2 29 J- 1 , ^ 

M J=N +J-2 
DO 228 I = 1 » 3 

M I = M ♦ I - 2 

LMN*VI+NM*<NJ-l I 
NPK=NPK+1 

I I S C NPK I = I A ( LMN ) +NS A 

CALL UNI PAM ( AR ,RO ,ZA U ,LMN) , ZP< I 

ZK(l,NPKJ=ZPK(l) 

ZM2,NPKWPK(2) 

C WEIGHT CONTRIBUTION OF SINGULARITY PARAMETER 

WTK(NPK)=1. 

IF( ( ( Vi. EQ. I). OP . ( Ml .FQ.MML ) .CR. ( I .FQ.2) > .AMO. 

C U NJ .EC. 1) .OR. ( NJ.EQ.NNL ) .OP . ( J .FO. 2) >) WTK (NPK )=WT 

228 CONTINUE 

229 CONTINUE 
I N S = N P K 
N 0=2 

LEAST SQUARE PANEL SINGULARITY DISTRIBUTION 
TC SINGULARITY PARAMETERS 
CALL LSOSF 
DO 249 K=I,NPK 
DC 248 1 = 1, fc 
A S T ( I , K ) - A K ( I » K ) 

24 8 CONTINUE 
249 CONTINUE 

C STORE SINGULARITY DEFINING QUANTITIES ON A FILE 

CALL lPTRNS(IP) 

I F ( TPSING.Nc.O) 

$W° l T E ( <5 , 1000 ) IP, INS, IIS, NO, AST, ZK 


29 8 

CO NT INUE 


? 99 

r C:MT f NJIJP 
NS=N I A 
GO tq 80C 


r 

SCUPC E/OES IGN 

NFTWCRK CALCULATIONS 

C 

(NUT AN noj TOM 

IN PRESENT PROGRAM) 

BCD 

COMT inue 
co tt ere 


400 

CONTINUE 
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0CU8LET/0ES IGN (FREE SHEET* NETWORK CALCULATIONS 
ORDER NON-IDENTICAL SINGULARITY PARAMETERS 
CALL GP D I NO ( NM « MN t Z M , I A, NI A I 

CYCLE THROUGH ALL PANELS IN' THE NETWORK 
DO 490 N=2»NN 
DO 4 9 8 ,v=2»NM 
IP=M-l+(NM-l)*(N-2)+NPA 

PETRI t VF PANEL GEOMETRY DEFINING QUANTITIES 
CALL PTPNS( IP) 

I T S= 2 
N P K = C 

CALCULATE LOCATIONS OF SINGULARITY PARAMETERS 
AFFECTING PANEL SINGULARITY DISTRIBUTION 

00 429 J = 1 » 4 
N J=N +J- 3 

I F ( ( NJ.LT. 1 ) .OP. (NJ.GT.NN) ) GO TO 429 
DO 428 1=1,4 
M I =M + I — 3 

IF( ( MI.LT. 1 ) .OR. ( MJ.GT.NM) ) GO TO 428 
L MN = MI + NM*(NJ-1) 

N PK = N P K + 1 

1 I S( NPK )= I A (LMN) +NSA 

CALL UNIPANt AR,RO,ZM( 1 , M I , N J ) , Z PK ) 

ZK( 1 , NPK ) = Z PK ( 1) 

7K(2 ,NPK)=ZPK( 2) 

WEIGHT CONTRIBUTION OF SINGULARITY PARAMETER 
WTK( NPK ) = 1 . 

IF( ( ( I .FG.2 ).QR . ( I.EC.3) ) .AND.l ( J.EQ.2) .OP. { J.FQ.3) ) > WTK( NPK) =WT 

428 CONT INUE 

429 CONTINUE 
INS=NPK 
N0=2 

LEAST SQUARE PANEL SINGULARITY DISTRIBUTION 
TO singularity PARAMETERS 
CALL LSCSF 
DO 440 K= l » NPK 
DO 448 1=1,6 
A S T ( I , K ) = AK ( I , K) 

448 CONTINUE 

449 CONTINUE 

STORE SINGULARITY DEFINING QUANTITIES CN A FILE 
CALL TPTRNS(IP) 

I F ( IPSING.NE.O) 

$WR I T E( 6 , 1CCC ) IP, IMS, ITS, NO, AST, ZK 

498 CONTINUE 

499 CONTINUE 
M S = N I A 

GO TO 80 C 
900 CONTINUE 

DPUBLET/DFS IGN (WAKE) NETWORK CAL FIJI ATTIDNS 
CYCLE THROUGH Al.L PANELS IN THE NETWORK 
DO 990 N = 2 * NN 
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DO 5F8 i*-2i NN 
! P=M-l+( NM- 1) *( M-2) +MPA 

C RETRIEVE PANEL GEOMETRY DEFINING QUANTITIES 

CALL pTPNSI IP) 

I T,S= 2 
NPK-C 

CALCULATE LOCATIONS OF SINGULARITY PARAMETERS 
A FF PC Ting PANEL SINGULARITY distribution 
DO 5 21 J= 1 * 3 
N J=N+J-? 
on 528 1=1,3 
m i=m+I-2 

L MN=MI +NMI *1 NJ-i ) 

NPK = NPK+ l 

I I S( N P K ) = I A ( MI ) +NSA 
CALL UNIPANI AR ,PQ,ZA( 1 » L M N ) , 7 PK I 
?.K( 1 t N PK ) = 7 FK ( l ) 

7K ( 2 »N p K ) =7 °K ( 2 ) 

C WEIGHT CONTRIBUTION jF SINGULARITY PARAMETER 

W T K ( NPK ) = 1 . 

IF( ( (MI.EO. I ).OR. (MT. EQ.NM1 » • OR • 4 I.EQ.2) ) . AND. 

C( ( NJ.EO. 1) .OF. { NJ.EO.NNl ) .OR . ( J . EQ. 2) ) ) WTK(NPK) =WT 
523 CONTINUE 
52 9 CONTINUE 
I N S = N p K 
MO =2 

C LEAST SQUARE PANEL SINGULARITY DISTRIBUTION 

C TO SINGULARITY PARAMETERS 

CALL LSCSF 
00 5 49 K=L,NPK 

DD 543 1*1,6 

ASTI I . K t = AK ( I , K l 
543 CONTINUE 
549 CONTINUE 

C STORE SINGULARITY DEFINING QUANTITIES ON A FILE 

• CALL I RTF NS (1° ) 

I F ( IDSING.NE.C) 

SwP T T e C 6, 1000 I IP, INS, ITS, NO, AST, ZK. 


598 

C ONT INUF 

599 

COMT INUF 


NS = I A( NM 1) 


GO Tf 800 

6C0 

PONT TNIJE 


C UCUBL ET/DES I GN (FED SHEET) NETWORK CALCULATIONS 

C CYCLE TWPD'JGH ALL PANELS IN THE NETWORK 

DP 655 N = 2 , NN 
DO 653 v=2,NM 
I P = M — I nm- l )*( n-21 +NPA 

C n FTP I F VE PANEL GEOMETRY DEFINING QUANTITIES 

CALL PTPNS(IP) 

IT 5=2 
MPK = C 
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C CALCULATE LOCATIONS of singularity parameters 

C AFFECTING PANEL SINGULAFITY DISTRIBUTION 

DO 6 29 J = l, 3 
N J=N+ J-2 
no 623 1=1,3 
M I =M+ I -2 

LMN=V-I +NMl*(MJ-l ) 

NPK=NPK+l 
I I SI NPK) =N J + NS A 

TFINT.F0.7) IIS(NPK> = 1 «■ NSA 
CALL UNI PAN ( AP , B 0 , Z A ( L , LM.N ) , Z PK ) 

ZK ( 1 ,MPK)=ZPK( 1) 

ZK< 2 ,NPK )=Z PK( 2 ) 

C WEIGHT CONTRIBUTION OF SINGULARITY PARAMETER 

WTK { NPK)=1. 

IF( I (MI. EG. n.OR.IMI.FO.NMI I .0*» . ( I .EQ . 2 ) » . AND. 

C( ( N J • F 0 • 1 ) «OF • ( NJ.EO.NMl l.CP.IJ.FQ. 2) I I WTK< NPK) =WT 

628 CONTINUE 

629 CONTINUE 
I N S= NPK 
NO=2 

LEAST SCUARF PANEL SINGULARITY DISTRIBUTION 
t r SINGULARITY PARAMETERS 
CALL LSQSF 
DO 649 K=l,NPK 
DO 648 1=1,6 
AST( !,KJ=AK< I , K I 

648 CONTINUE 

649 CONTINUE 

C ST°RF SINGULARITY OFF IN' IMG QUANTITIES ON A FILE 

CALL f PT PNS ( I P I 
I F { IPS ING.NE.O ) 

$WP! T FI6, 1COC) IP, INS , IIS, NO, AST, ZK 
ICOC FORMAT!//, 1915,/ (6F 15.6 1//) 

698 CONTINUE 

699 CONTINUE 
NS=NN1 

IF(NT.EQ.T) NS = 1 
800 CONTINUE 
RETURN 
END 
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subroutine sup f t t 
(-.**#**<: 

r . S Ur c CUT-T NF SUP F I T 

r 

C PURPOSE 

r 

r INPUT 

r 
r 
r 

r 

C 

C OUTPUT 


r S I.IB C CUT I NE S 

o CALLED CROSS, UVCCT, Tpa.NS, IJNTPAN, LSOSF ,MMULT 

DISCUSSION THE ROUTINE DEFINES A PANEL SUE FACE AND LOCAL PANE l 

COOP 0 I M A T E SYSTEM. AS A FIRST AnRR QX I m A T I ON TO T^e PANEL 
S U D E A C E THE ROUTINE TAKES THE QUADRILATERAL FORMED flv 
PROJECTING THF PANEL CORNER POINTS ONTO THE PLANE THROUGH. 
THE MIDPOINTS OF THE LINE SEGMENT S JOINING THFSF CORNER 
POINTS. A LOCAL COORDINATE SYSTEM IS CONSTRUCTED WITH 

the origin at the average OF the QUA DR ilateral corner 
points and with one axis normal to the quads ilatfral. to 

obtain A SECOND ORDER APPROXIMATION TO the PANEL SURFACE 
The ROUTINE CALCULATES A PARABOLOID PASSING THROUGH THE 
CORNER POINTS WITH CURVATURE ORTA INFO BY LEAST SQUARING 
THE PARABOLOID TG ADJACENT CORNER POINTS. THE LOCAL 
CnnPOINA T F SYSTEM IS THEN ROTATED AND TRANSLATED IN SUCH 
A MANNER THAT the PARABOLOID CAN BE REPRESENTED IN 
CANONICAL FORM. AN ITERATIVE PROCESS IS REQUIRED TO 
r ELIMINATE LINEAR tfpmS WITHOUT TRANSLATING THE ORIGIN, 

r «$**** 

CQMMCN/FLATP/NFLTP 

CDVMCN/LSQSFC/.ZK ( 3, 16),WT«( 16),AK(6, 16) ,NO,NPK 

COMMON/P ANDO/CPI 3, A I , PC i 3 > , F C ( 3 ) , A ft ( 3 , 3 ) , AR T I 3 , 3 ) , P < 2 , A ) , A, B , D I A M t 
CC (6, 6) , AST( 6,16) , I IS ( 16 ) , I NS, IT S , N°DO 
COMMON / I PR INT/I PNPUT , T P G E 0 M. , IPS ING, I PC NTS , r P F I VC , I PL'UTP 
DIMENSION H( 3, 3 ) ,HT ( 3, 3 ) ,U< 3 ». ,V{ 31 , W< 3) , ZETA( 16 > ,C">r( 6 » ,RQP< 3 )' 

0 I MENS ION WK( 3, 161 

RHI.'I VALR-NCF ( U ( 1 ) , HT ( l ) ) , ( V ( 1 ) , HT ( A ) ) , (W<L),HT<7)) 

0 A T A NIT, DELTA /lC,I.F- 8 / 

r CALCULATE BISECTING DIRECTIONS AND CENTER POINT 

DO 5C 1=1,3 

U( I )=CF( I, 1 )+CP( T ,4)-CP( I ,2 )-CP( 1,3) 

V( II =CP(l , 1 H-C D ( I , 2) -CP( I, 3 >-QP( 1,4 ) 

PC ( II = .2 5*<CP( I , 1 »+CP ( I, 21 *CP( I ,3H-CP< I ,'4M 
DO 49 K=1,NPK 
WK { I ,K ) =ZK( I ,K > 

49 CHmT I NOR- 


TH DEFINE PANEL SURFACE AND LOCAL PANEL COORDINATE SYSTEM 

COMMON BLOCK 
/PL A TP/ - NFL r P 
/ISOSFC/ - ZK,HTK,NO,NPK 
/PANDQ/ - CP 
/I PRINT/ - IPGEOM 

COMMON BLOCK 

/ P ANDO/ - PC, PC, A* , P , A , B 
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50 CONTINUE 

r CONSTRUCT ORTHOGONAL U,V,W COORDINATE SYSTEM 

C WITH W PERPENDICULAR to panel plane 

CALL CPOSS(U,V,W) 

CALL CROSS C Wf.U» V) 

CALL UVECT(U) 

CALL UVECT(V) 

CALL UVECT(W) 

CALCULATE ORTHOGONAL MAT R IX WHICH TRANSFORMS 
COORDINATES FRO* GLOBAL TC LOCAL 
CALL TR ANSI HT, AO , 3, 3 > 

ITERATE TO FIND PANFL CURVATURES 
00 170 I T = 1 , N I T 
DO ICO K=l,NPK 

TRANSFORM ADJACENT COPNEP POINTS TO LOCAL COORDINATES 
CALL UNI PAM( AP t »C|WK( L «K I «2K( 1«K M 
Z E T A I K I = ZM 3 * K ) 

IFINFLTP.EO.n ZETA(Kl=C. 

100 CONTINUE 
N0=2 

CONSTRUCT LFAST SQUARES PARABOLOID THROUGH CORNER POINTS 
CALL LSQSF 

CALL M M ULT ( AK» ZFTA t CPF,fc * N D K f II 
TF( IPGECM.NF.O) 

$WP ITF( 6 , 1COO) CDF 
1000 FORMAT!/ 4X5HC0P t <6F20.12l» 

CGT&TE COOROINATP SYSTEM ABOUT NORMAL TO PANEL 
T C G C T RID OF QUADRATIC CROSS T FRM 
C0F4'S=.5*ABS(CGF(4)-CCF(6) I 
DP=SCPT( CGF ( S) **2+CnF46**2) 

IFIOP.FQ.IO.) ) SR»SI=C. 

IF { QP.NE .( 0 . ) ) S p S ! =SORT ( . 5*ABS ( 1 . -C 0F46/PP I) 

IF! ( COF ( 5) *<COF( 4J-CCFI6 ) ) ) .LT. (0. )J SPSI=-SPSI 
C D $ I = SQRT(ABS( l. — SPSI **2 ) ) 

APT< l t 1) =CPSI 
ART! 2, 1 >=-SPSI 
AP T ( 3, 1 ) = C . 

ART ( 1, 2) =SPS I 

AFT(2,2»*CPSI 
AP T l 3, 2) =C. 

AR T ( 1, 3) =0. 

ART( 2 t 3) =0. 

ART ( 3 , 3|=l. 

C CALCULATE PRINCIPAL CURVATURES 

A=.S*< CO FI 4 )*CPS I ** 2 +C 0 F (61 *SPS 1**2 ) *CE' F ( 5 ) *SP S I *CP S I 
E = .5*( COF I 4 I *S p S I **?. + C0 F ( 6 I *CPS I **2 1 -CO F ( 5 I *SP S I *CP S l 
0=CH F ( 2)*CPSI+COF!3)*SPS I 
IF ( APS ID) .LT.DFLTA) 0=0. 

F = -C CF( 2 )*SPSI «-COF( 3 )*CPS I 
IF! ABSIE ). LT.DFLTA) F=0. 

F=COF( i ) 

C CALCULATE O c IGTN CF NEW LOCAL COORDINATE SYSTEM 
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2000 

C 

c 


c 

c 


170 

175 

C 

200 

c 

c 


300 


•IF( A.EQ.10. II R0P(l> = 0. 

IF< A.NE.IO. ) ) R0P(1)=-.5*D/A 
IF1B.EQ.10.)) P0P(2)=C. 

I F ( 8 .NE. ( 0. ) J P OP (2t =-• 5*E/B 

PCP( 3)=CGF( 1 > — A*R OP ( l)**2-B*R0P( 2)**2 

I F ( T FGFOM. NE.O ) 

$WR I T E ( 6 » 2000 ) A , 3 , 0, E , F , P OP 
FORMAT! ( 8E15.6) ) 

ROTATE CHOP D I N AT E SYSTEM A80UT AXES IN PANEL PLANE 
TQ TRY TO ELIMINATE LINEAR TERMS 
C A = 1 . / SORT ( l. + 0*D> 

S A = D*C A 

C 8 = 1 ./ SCPT ( l.*E*E) 

SB=E*CB 
HT ( 1 t 1 ) =CA 
HT< 1 ,2 ) =0. 

HT ( 1 , 3 ) = SA 
HT( 2* i l=-SB*SA 
HT(?,2)=CB 
HT ( 2 » 3 ) = SB*C A 
H T ( 3 1 1 ) =— CB*SA 
HT(3,2)=-SB 
HT { 3 , 3 J =CB*C A 

CALCULATE ORTHOGONAL TRANSFORMATION MATRIX 
FOP NEW LOCAL COORDINATE SYSTEM 
CALL MMIJlT! ART, AR,H,3,3,3> 

CALL MMULT(HT,H,AR,3,3,3I 

IF< ( D.EO.O. ) .AND. < E.EQ.O. ) ) GO TO 175 

CONT INUE' 

CONTINUE 

CALL MVULT( POP. AR ,W, 1,3*3) 

CALCULATE ORIGIN OF LOCAL PANEL COORDINATE SYSTEM 
DO 200 1=1,3 
*0< I ) = PC( I )+W< I ) 

CALCULATE LOCAL COORDINATES OF PROJECTIONS OF 
CCPNER POINTS ONTO PANEL PLANE 
On 3C0 1=1,4 

CALL UNIPAMIAR ,RO,CP( 1, I) ,W) 

P( 1, I )=W( 1) 
p ( 2, I > =W( 2) 

CONT INUE 

RETUPN 

END 
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SUBROUTINE SURPRO(Z,ZP,UNI 


^ ****** 

r SUBROUTINE SURPR.O (ZtZPfUN) 

C 

C PURPOSE TO FIND THE LOCATION OF THE PROJECTION OF A POINT ONTO 

C A PANEL SURFACE AS WELL AS THE SURFACE NORMAL AT THIS 

C LOCATION. 

C 

C INPUT CALLING SFQUENCE 

C Z - GLOBAL COOP 0 1 N ATFS OF POINT TO BE PROJECTED 

C 

C COMMON BLOCK 

C /PANDQ/ - PO » AP » AR T 

C. 

C OUTPUT CALLING SEQUENCE 

C ZP - GLOBAL COORDINATES OF LOCATION OF PROJECTION 

C UN - GLOBAL COORDINATES OF UNIT NORMAL TO PANEL SURFACE 

C AT THIS LOCATION 

C 


r SUBROUTINES 

C CALLFO UNIPAN, UVECT, PANUNT ,MMULT 

r 

C DISCUSSION THE ROUTINE CALCULATES THE PROJECTION OF A POINT ONTO 

C A PANEL SURFACE AS WELL AS THE SURFACE NORMAL VECTOR AT 

r THE PROJECTED POINT. ALL INPUT ANO OUTPUT VECTORS ARE 

C ASSUMED TO BE GIVEN IN GLOBAL COORDINATES. THE ROUTINE 

C CONVERTS TO LOCAL COORDINATES, PROJECTS ANO CONVERTS 

C BACK TO GLOBAL COORDINATES. IN THE EVENT THAT THE GIVEN 

C POINT DOES NOT LIE ABOVE OR BELOW THE PANEL THE 

C PROJECTION IS MADE ONTO THE PARABOLOID OF WHICH THE 

C PANEL IS A PART.' 

(■;*****< % 


C 

c 

c 

c 

r. 


c 


c 


c 


COMMON /PANDQ/CPI 3,4),PCm,PO(3),AR(3,3)tART(3,3),P(2,4>,A,B,DIAM, 
CC (6,6) « AST (6*161 * I IS (16) , I NS , IT S, NPDQ 
DIMENSION Z ( 3 ) * Z. P ( 3 I , UN ( 3 ) * Z N ( 3 ) 

TRANSFORM REPRESENTATION CF POINT FROM GLOBAL TO LOCAL 
PANEL COORDINATE SYSTEM 
CALL UNTPANI AR ,RO,7,7P» 

CALCULATE VERTICAL COORDINATE OF POINT ON PANEL HAVING SAME 
HCPlZONNTAL LOCATION 
ZP(3I~A*ZP( 1) *ZP( I )+B*ZP( 2) *7P( 2) 

CALCULATE SURFACE NORMAL VECTOR AT THIS POINT 
Z N (' 1 ) = -2 . * A * ZP ( l ) 

7N(2 )*-2.*P*ZP(2) 

7 N ( 3 )« I. 

CONVERT NORMAL VFCTOR TO UNIT NORMAL VECTOR 
CALL UVRCT(ZN) 

CCNVERT PROJECTION TO GLOBAL COORDINATES 
CALL PAN UNI ( ART ,RO*ZP,ZP) 

CONVERT NORMAL VECTOR TO GLOBAL COORDINATES 
CALL MMULT< ART, ZN,UN,3,3 , 1 I 


RETURN 

END 
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SUSFTUTTNE TCNT^L 

f ****** 

r SMnccUTrNE TCNT^L 

C 

C P*J C PCS t 

r 

r 
r 

r 

C INPUT 

f 

c 

r 

r output 

r 

c 
r 

5 UP. P CUT I NE S 
CALLED C-CNTPL 

0 1 SC US SI PN the ROUTINE CALLS CON T PL TO CALCULATE THE LOCATION r? 

C CUNTS OL ° 0 1 N T S FOR ALL PAM ELS AND TQ COMPUTE THF. UNI T NO? 

0 -MAL VECTOR AND THF NORMAL COMPONENT OF FRFE STFFA*/ VELU- 

C C. ! T Y VECTOR AT fV = c Y c p NTFOL °P!MT ON ALL PAMFLS F n P EACH 

C ME T WORK « IT ALSO FINDS THE CUMULATIVE NUMB 6° OF CONTROL 

C POINTS AND THE TOTAL NUMBER PE CONTROL POINTS. 

r.nMCN /PDYC S/Z Cl 3» 12 5) ,7CC I 3 t 125) ,?C? I 125 > »ZDC I 1251 , 1 PC I 125 ) , 

1 I TCI 125) 

C OMMCN/IMOEX/NTI 9 ) , NM ( 9 ) ,NN( 9 ),N°{ 9 ) . NS ( 9 I t NC I 9 ) f NZ I 9 I , 

CMRAI 1C) , N S A I 10 ) , NC A ( 1C) « N7 A ( 1C) . NNFTT , NP ANT , MSNGT, NCTR T, NZ^PT 
COMMON /MSPNTS/ZM(3,175).ZL(75) 

N C A ( 1)=C 

00 20C K = 1 » NMETT 
N Z M P A 1 = N Z A I K l * 1 
N C T P A 1 = M C A { K |*1 

CALL CONTPLINTU I »NM( K) ,NN( K I ,NC I K) ,NPA( K ) ,ZM( l ,NZMPA1 ) f 
17C ( 1 ,NCTRA1 ) ,ZCCU,NCTf A1 ) , ZCPI NCTP AU ♦ ZOCIMCTR A1 ) , IPC. ( NCTP AH , 

21 TC ( NC T? A1 ) ) 

MCA { K+ 1 ) =NC AIK ) + NC(K » 

200 C r 'HT INUE 

C P P T A INS THF TOTAL NUMBER OF CONTROL POINTS 

NCT°T=NC A I NNF t T ► 1 ) 

F r t ; j r M 
r no 


T 0 DESIGNATE THE LOCATION OF CONTROL POINTS FQP ALL NET- 
WORK PANELS AND TO COMPIJ r E THE UNIT NORMAL VEC Tp R AND ThF 
NORMAL COMPONENT OF FREE S T R F AM VELOCITY VECTOR AT EVERY 
CONTROL point 

COMMON BLOCK. 

/INDEX/ - NT f N.M,MN f NPA, N7A f NNETT 

/MS pa; t s / - z m 

COMMON BLOCK 

/ B DYC S / - ZC,ZCC,ZCR,ZDC,IPC» J T C 
/INDEX/ - MCA.NCTPT 
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SU&P GU T I NE TGEOMC 


(-****<:$: 

r SUBROUTINE TGEOMC 

C 

r pijc n>£Cf: 

C 
C 

r INPUT 

C 
r 

r 

C CUT PUT 

r 

C S UP F CUT I NE S 

C CALLED GEOMC 

r 

C niSCUSSICN THE ROUTINE CALLS GEOMC TP CALCULATE FSSENT I AL GEOME- 

C TRY FOR ALL PANELS CF C ACH NETWORK. 

r ****** 

C C M »*CN/ I NDEX/nT< 9 ) iNM (Q) ,NN( 9 ), NF( 9) ,NS( 9) ,NC ( 91 , NZ ( 9) , 

CNPA ( 1 C ) * NSA (101, NCA ( 1 0) t NZA { 1C) » NNETT t M PANT , NSNGT, MCTP T , NZ MPT 
COMMON /MSPNTS//M(3» 175) t7.L( 75) 

00 2CC K=l, NNETT 
NZMP41=NZA( K ) + 1 
NPAN A1=NPA( K) «- 1 

CALL GrnvC ( NT( K ) f NM( K) ,NNt K ) f NPA( K ) , ZM( 1 , NZMPA 1 ) ) 

200 CONTINUE 
RETURN 
FND 


TO GENERATE ESSENTIAL GEOMETRY INFORMATION FOR EACH PANEL 
Of ALL THE NETWORKS 

COMMON BLOCK 

/INnex/ - NT ,NM,NN,NPA,NZA, NNETT 
/ V S P N T S / - ZM 

SEE OUTPUT OF SUBROUTINE GEOMC 
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SUBROUTINE TSING 
C **«<:*<: 

C SUB ROUT INE IS ING 

C 

C PURPOSE T C DESIGNATF t HF l. DC AT I ON OF DOUBLETS ON ALL NETWORK 

C PANELS AND TO COMPUTE T H" MATRIX F OP COEFFICIENTS OF CUAU 

C -CATIC DOUBLETS DISTRIBUTION FOP, EACH PANEL 

r 

r INPUT common BLOCK 

C /INDEX/ - NT f NM, NN.NPA ,UZA,NNETT 

C /MSPNTS/ - 7.M 

r 

C OUTPUT COMMON BLOCK 

C /INDEX/ - NS,NSA,NSNGT 

SUPPCUTINES 
C CALLED SING 

C 

C HISCUSSICN THE POUT INF CALLS SING T 0 C ALCUL AT F THE LOCATION OF 

C DOUBLETS ON PANELS AND TO COMPUTE THE MATRIX FOR COEFFI- 

C C I ENT S OF QUADRATIC OOUBlFT DISTRIBUTION FOP = VF®Y P A N C L 

C DF EACH NETWORK. IT ALSO FINDS CUMULATIVE NUMBER OF 

C DOUBLETS. FINALLY THE TOTAL NUMBER OF DOUBLETS IS OB- 

C TATNED. 

C 

C OMMCN' / I NDE X/N T ( 9 ) ,NM(Q| ,NN<9), NP(9) ,NS(9) ,NC ( 9 I ,NZ<9) , 

C N P A ( ID ) , NS A f ID ) ,NCA ( l C ) ,.NZA ( 1C) » NNE t t . N PANT , N SNGT , N CTR T , N 7vP T 

COMMON /MSPNTS/ZMO, 175) » Z L « 7 5 > 

NSA ( 1)=C 

DO 2 CO K = 1 » NNE TT 
NZMPA1=\ZA( K ) f 1 

CALL S ING(MT(K ) » N M ( K I ,NN( K) , NSI K ) , NS A ( K ) , NP A( K ) , L M( 1 , NZ >,n A 1 ) > 

MSA ( K+ 1) =NSA( K) «-NS (K) 

20* CONTINUE 

C OBTAINS THF TOTAL NUMBER OF DOUBLETS 

NSNGT = NSA(NNETT«- 1 ) 

RFTUFN 

R.ND 
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SURF CUT I ME V TNFCC < Z t Z N* Z 0 ♦ J PC ) 
C ****** 

r S UP P- CUT INF VINFCC 


C 

c 

r 

c 

r 

r 

r 

c 

c 

r 

r 

r 

C 

C 

r 

r 

r 

c 

r 

r 


PUP P CSC TO GEMFR4TF THE THREE COMPONENTS OF A E c GOV NAM I C INFLUENCE 
COEFFICIENTS FOP A GIVEN CONTROL POINT INOUC c D BY ALL PAM 
-Fl.S DOUBLET P I S TP l BUT ION 

1 N PUT CALLING SFOUENCF 

Z - X t Y f 7. COOPniNATES OF A GIVEN CONTROL POINT 
ZN - NORMAL VFC T OF AT the CflMPPL opIMT ON P A N r L SUPfACE 
ZD - PEP TUP BAT I ON DISTANCE FOP CONTROL POINT A T EDGES 
JPC - INDEX OF PANEL OF WHICH COMPONENTS CF MC APF tq RF 
t RANSFCPMED TP ITS LOCAL COORDINATES 
COMMON BLOCK 
/C MC3 / - NPIF 
/INDEX/ - IMP ANT f NS NOT 

OUTPUT COT MON BLOCK 

/P INC/ - DVDFS 

SUPFCUTINES 

CALLED PTPNSfElVCtPIVC * MNIJLT 


r 

C 

C 

C 

r 

c 

c 

r 

r 

r 

r 

k.-- 

c 


DISCUSSION FOE tVFFY PANEL, THE ROUTINE CALLS P TR N S TP TRANSFER 

panel inform at ton. depending on the given ccjnrol point is 

at E DG r O c ' INTERIOR CF thf PANE!, IT CALLS E I VC OR P I VC 
TO EVALUATE THF INTEGRALS. T HF LATTER IS thFI) MULTIPLIED 
BY THE GENERALIZED INVERSE. E&UM LEAST SGUARFS FIT OF OUAD 
-DRATIC DCUBI ET DISTRIBUTION OBTAINED IN SUBROUTINE SING 
TO FORM THF TH^EF COMPONENTS OF AERODYNAMIC INFLUENCE 
COEFFICIENTS. IT J PC. IS SPECIFIED* THE COMPONENTS OF AIC 
WILL BE TR AN SF n R MF D TQ LOCAL COORDINATES OF THAT PARTI- 
CULAR PANEL. 


C :$$*** *■ 

COMMON /CMC3/NTS INtNTSOUT , NTGD»NP IF ,NA IC3» NAI C» NJACtNSCR 
COMMON/ I NOE X/NTI 91 ,NM (91 * NN (91* NP( 9 ) , NS { 9 I , NC ( 9 I , NZ ( 9 1 , 

C^PA ( 1C ) * NS A ( 10 ) » NCA ( 10) ♦ NZ A { 1C) , NNE T T , N P ANT , N S MG T* NCT« T , N 7 MPT 
COMMON/ PANOO/CP ( 3 , 4 ), PC, ( 3 ), P 0 ( 3 ), A c < 3 , 3 ), A? T < 3 , 3 ), P ( 2 , 4 ), A , 3 , D I AM, 


C 

C 

C 

C 

r 


CC (6, 6) , AST( 6, 16) . IIS( 16 ) , INS, ITS.NPOG 
COMMON /PINC/DVDFSI 3* 125) 

C OM MON / P I NDX/ K p , KO » N PWR , NP P D 
COMMON/PIVM/DVDS{ 3,6) 

COMMON /ZIP/IP?tIP,I T Z,JCZ 
DIMENSION VP( 3) , VS( 3, 16 ) ,Z< 3) ,ZN( 3) 

SETS ARRAY DVDFS TO ZERO 
CALL ZEP C( DVDFS* 3*NSNGT ) 

OBTAINS THE 3 COMPONFNTS OF AERODYNAMIC 
INFLUENCE COEFFICIENTS FOR A GIVEN CONTROL 
POINT INDUCED BY ALL DOUBLET PANELS OF HALF 
THF CONFIGURATION AND THEIR IMAGES 


KO = 0 
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CPWINO NPIF $ NPFD = NPIF 
no 7 CO I P= 1 * NP ANT 

Cali ptp ns( i p » 

IF( ZC.FQ.O) GO T 0 6C0 
CALL E l VC ( 7 « ZN , ZD ? I P INF ) 
r F ( I P r KF J 625,700,625 
feCO CALL Pivcm 

62 5 CALL VMULTl OVDS, AST,VS ,3 ,6» INS) 

DO 6 SC I C = 1 « INS 
IS= I IS ( I C) 

PVnFSI 1 , IS )=DVDFS ( l, I S)+VS< 1 , IC ) 

OVOFSI 2, I S)=OVDFS (2 , I S) + VS( 2, IC I 
DVPF s ( 3 » I S ) =OVOF S ( 3 » I S ) ♦ VS ( 3 , IC ) 

650 CONTINUE. 

700 CONTINUE 

I F ( J PC . E C . 0 I GH TO 900 

C TFANSFOPMS AIC To LOCAL panel (JPC) cooph 

CALL PT=NS(JPC) 
no 850 IS=1.NSNGT 

CALL FNULT( ARfCVOFSIlflSIfVC ,3t3,U 
on 300 1=1,3 
300 OVOFSI I, IS I =VR ( I » 

850 CONT TNIJF 
9 CO PETUFN 
END 
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OVER l AY( vn c TEX,3,C) 
PPnr,Ki« SOLVER 


C *** *** 

C pc nr, cam 

r 

C c U P P C S F 

r. 

C INPUT 

r 

c 

r 

r. outpu t 

c 

r 


SOLVE R 

TO SOLVE A LINEAR SYSTEM OF EQUATIONS A*X=B 
COMMON BLOCK 

/N FQS / - NE t NF ♦ NMA T, NP HS 

COMMON BLOCK 
/NCOS/ - NPHS 


C 

C 

C 

c 

r 

r 

r 


SUBPLTINES 
CALLED LINEOS 

DISCUSSION SEE PROGRAM DOCUMENT 1.3 DESCRIPTION AND FLOW CHART OP 
OVERLAY PSPGPAMS. 

THE PROC-PAM HAS BEEN SET UP WITH THE CONS I PE P A T I ON 
THAT AN DUT-CF-CCP E EQUATION SOLVES CAN BE R FPL AC c THE P fc 
S F NT IN-CORF ONE WITHOUT CHANGING THE DATA SIR UC T UP F > 
SIGNIFICANTLY. 


•**$*$* 


COMMON /NFQS/NE.NP , NMA T » m^hc 
HImcnS ION A ( 13C, 130 ) , R( 13 C ) , IPP ( 130 ) 

NM = 1 30 

RFADS CUT COEFFICIENT MATr [X AND RIGHT- 
HAND SIDE AND STORES THEM IN ARRAYS A $ R 

REWIND NMAT 
R C W T AD NRHS 
no ID I = L , N F 

READ(NMAT) (A(I,J)»J= 1,NE) 

ID P EAD(NPHS) B( I ) 

CALL LINFQSI A t NM , NF » I PP » B ♦ NP , DU 
IF(0I.NE.C. ) GO TO 2C 
PRINT 15 

IS FORMAT!///* THF MATRIX APPEARS SINGULAR*) 

STOP 

C WRITES SOLUTION VECTOR hn THE FUT 

20 REWIND NPHS 

WFITR(NPHS) B 

P F T U P N 

END 
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OVERLAY! VfjPTEX,4,0) 

PROGRAM OUTPUT 
C ****** 

PCOG c AM OUTPUT 

P'J c POSF TO CALCULATE AND PRINT THE FOLLOWING RESULTS 

PANEL INDICES OF THE WING, FREE AND FED SHEETS AMD WAKE 
X,Y,Z COORDINATES, PANEL NUMBER AND CIRCULATION AT POINTS 
ALONG THE TE c MINATED ROGE OE THE FED SHEET 
X , Y , 2 COORDINATES, PANFL NUMBFR AND CIRCULATION AT POIN T S 
ALONG THE WING TRAILING EDGE 
PANEL NUMBER, X , Y , 7 COORDINATES OF PANEL CENTER POINT, 
tjppfc AND LOWER VELOCITY, DELTA CP, UP°ER AND LOwFP 
CP, AND PANEL AREA 
NORMAL FORCE COEFFICIENT 
PITCHING MOMENT COEFFICIENT 
PITCH AXIS 
50DT CHORD 
WING APF 4 

X , Y , Z COORDINATES OF PANEL CORNER- POINTS IN THE FREE 
SHEET NETWORK 

X , Y , Z COORDINATES OF PANEL CORNER POINTS IN THE FED 
SHEET NETWORK 

INPUT COMMON BLOCK 

/ B DYC S / - ZC 
/ C MQ 3 / - NPI F » N A 1 0 3 
/E S VEL / - ESVtXPlTCH 
/INDEX/. - NM,NPA,NZA 
/MSPNTS/ - ZM 
/NFA.J/ - NFQ ,NF , NG 
/PANDQ/ - AP ,AC T,C 
/PINC/ - DVOFS 
/ S CLN / - S 

OUTPUT SEE PURPOSE 
SUBROUTINES 

GALLED MMULT, PTPNS , SNGCAL , UVECT, VI P 

DISCUSSION SFF PROGRAM DOCUMENT 1.3 DESCRIPTION 4NO FLOW CHART OF 
OVERLAY PROGRAMS. 

r. ****** 

COMMON /CMC3/NTS IN,NTSOUT ,NTGO,NP! F,N4 IC3,NAI CtNJACt NSGR . 
COMMON/80YCS/ZC < 3,125) ,ZCC < 3, 125) ,ZCR<1 25 ) ,ZDCl 125) , IPC( 125) , 

1 I TC ( 125) 

COMMON/ INDEX /NT ( 9 > , NM ( 9 ) , NN ( 9 ) , NP ( 9 ) , NS ( 9 ) ,NC ( 9 ) , NZ ( 9 ) , 

C N P A ( 10) , NS A ( 10 ) , NC A ( 10) ,NZA< Id , NMETT ,N PANT ,NSNGT, NCTP.T, NZMPT 
COMMON /MSPNTS/ZM (3,175), 7L(75) 

C QMMON/P ANDO/C? ( 3,4) , PC ( 3 ) , P 0 ( 3 1 , AP ( 3 , 3 ) , AR T ( 3 , 3 ) , P < 2 , 4 ) , A , 8 , 0 I AM, 
CC (6,6) , A ST (6, 16 ), I I S ( 16) , INS, ITS,NP[)Q 
COMMON /PINC/DVDFS( 3, 125 ) 
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COMMON /PINDX/KP, KO.NPWP ,nppo 

COMMCN/FSVEL/FSV( 3) ,FSVM, ALPHA, X PITCH, R CHORD 
COMMON /NFAJ/NEQ ,NF ,NG • 

C C MM ON /N'T TF/N C UM *JT, I TMX, KIT, IT PRIM 
COMMCN /SOLN/St 125) ,ZA<75) 

COMMON /I PR I NT /I P M PIJT . IPGFOM, IPS INC, I PCNTP , IPE IVC , I POtJTP 
01 MEN SIC N V EL ( 3 ) , V El F$ < 3 ) ,7(3 ) , T SC ( 6 ) » VU( 3 ) , V L ( 3 ) 

IF ( I ROUTP. FO.O.OR.NFUN.ME. 1^0 ) GO TO 50 
PRINT 20 10, MNFTT ,NPANT, NSNGTtNCTP.T ,MZ«FT 
2010 Fne.MATI MFPOM OtJTPUT*/5I5) 

PRINT 2020, <S (I) , 1 = 1 ,NSNGT ) 

2020 FOPVAT(//* SOLUTION S*/(5F14.6)» 

5 C CONTINUE 
C 

C PRINTS PANEL NO. FOR DIFFERENT NETWORKS 


1 1 = I 

t 

12 

= MPA ( 2 ) 

13 = N P A ( 2 ) + 1 

t 

14 

= MPAf 3 ) 

15 = N c A ( 3 ) + 1 

5 

16 

= 4 ) 

I 7 = N P A ( 4) +1 

$ 

! 8 

= MPA { 6 ) 

:l P 1 T E ( NT SOUT , 50 

10) 


I 1 » I ? t I 3 t 1 4 


5010 FORM, AT ( ///48X ,*W ING PANEL NUMB F P * , 3X * 14,* TO*, 14/ 

1 48X,*FPFE SHFE t PANEL NUMppP. * , 2X , I 4 , * TO*, 14/ 

2 43X,*FfO SHEET P A NFL NUMB E c * , 3X , 14 , * Tr, *,I4/ 

3 40X,*WAKE PANEL NU M B E P * , 3 X , I 4 , * TO*, 14) 


C PRINTS CIRCULATION ALONG TERMINATED EDGE 

0 P F FED SHEF T 


WE I T E f nT Shut , 5020 ) 

5020 F^F M AT( ///43X, *C IPCULAT I ON ALONG T F R M I N A T F D EDGE OF FED SHEE t *// 
14?X,*X*, 1CX ,*Y* , 10X ,*7*, 1CX ,*PANEL*,6X, *C I PCULATI ON*/ ) 

K 0 = 0 

REWIND NFIF $ N PP D = N P I F 
m3 = N«(3) 

1.1 = N 7 A ( 3 ) + M3 
DO 2 CP I P=I 5, I 6 
L 2 = l 1 + M 3 
CALL PTFNS( IP) 

DO ICO L - l » 3 

ZIL) - p.5*(ZM(L,L1) + Z M ( L , L 2 ) ) 

100 CONTINUE 

CALL SNGCAL ( 7, TSC ) 

WP I T E( NT SOU T ,5030 ) ( Z ( L ) , L = 1 ,3 ) , I P , TSC ( 1 ) 

503 0 FOR MAT < 3 4X, 3FI 1 .4, 8V , 14 , 4X , F 1 1.4) 

L 1 = L 2 

?0C C PN T INUP . 


PCINTS CIFCULATION ALONG WING TRAILING EDGE 

KP I tp ( NTSOUT , 5040 ) 

5040 FORMAT ( / /48 X , *C I P CUL A T I 0 N ALONG WING tpaj L ING FDGE* // 

14 2X , *X*, iCX, *Y*, 10X,*Z*, 10X,*PANEl *,6X, *C I P CUL ATI ON*/ ) 

TNP = N P A ( 5 ) - ( N M ( 2 ) — 1 ) 

LI = N Z A ( 4 ) + 1 
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DU 4 CO IP=I7 ? INP 
1.2 = LI ♦ 1 
CALL PTPNS(IP) 

DO 3 CO L = 1 * 3 

Z(L) -- 0.5*(?M(L v ll| + ZM(L,L2I» 

3CD CONTINUE 

CALL SNGCAL(Z,T5C» 

W° I TE( NT SCUT *5030 ) ( 7 ( L I » L = l ,3 ) , I P , TSC (11 

LI = L 2 
4CC> CONTINUE 
C 

C PRINTS V(UPPFP), V ( LOW EE ) * CP(UPPEP), 

CP(LnwEO), DELTA CP, ETC. EVALUATED AT ThE 
C CO NT POL POINTS COPP FSPQND I NG TO CENTRAL 

r L n C A T T on OF PANELS 

WC T T p ( NT SOLJT , 50 53 ) 

50 5 0 FOP MAT ( ///4X,*PANEL*»5X, *ZCX*,6X,*ZCY*, fcX , *7 CZ <= , 6 X , *VUX * , 5 X , *VLJY * , 
16 X , *VUZ*» 6X , *VLX* ,£>X, *VL V* , 6X ,* VL7* , 6X, *DCP*, &x, *CP LJ* , 6 X , *C PL * , 6X, 
2» A = FA*/) 

REWIND NAIC3 
KO = 0 

REWIND NPJ F 5 *JPFO = NPIP 
NFW = NF - NG 

no 5 co i = l , nfq 

RFAD(NAIC3I DVOFS(l) 

5CC CONTINUE 
SW = 0. 

CN = C. 

C.M = o. 
no 9 CC i 

R F AD ( N A I C3 > DVDFS 

IP = IJ $ JC = NEC F IJ 

CALL PTRMSI IP) 

C CALCULATFS V(TQTAL) AND GRAD(MU) 

CALL mmulti DVDFS,S,VEL, 3 , MSNGT, l) 

DO 6 CC 1 = 1,3 

600 VFK n = VEL(I) f FSV(I) 

CALL SNGCAL ( ZC( 1 , JC) ,TSC ) 

Z ( 1 ) =T SC < 2 ) $ 7(2) = T SC ( 3 ) $ 7(3) = 0. 

CALL MMIJLT ( AOT,7,VFLFS,3,3,l> 

C CALCULATES V(UPPCP) AND V( LOWER ) 

DO 7 CC 1 = 1,3 

VU(I) = VFL(I) f 0 .5*VEL PS ( I ) 

VL(I) = VELU) - 0.5*VEl P S( T ) 

70 C COMTINUF 

C CALCULATES DELTA CP 

CALL VIP(VEL»l»VELFS»l»3fHDCP| 

DC c = 2 . *HDCP 
I f= ( I J.GT.NFW) GO to 800 

C CALCULATFS C p (UPPER) AND CP(LOWEP) FOP W T MG 

CALI VIP(VEL,1 ,VFL,L,3,VSC) 
call V I P ( velfs » 1 » VFLFS , 1 » 3, GNUS 0) 
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CPU = i. - (VSQ *■ HDCP ♦ C.25*GMUSO> 

C PL = 1. - (VSQ - HDCP ♦ 0.25*GMUSQ) 

C CALCULATES WING AREA, NORMAL FORCE COEFF., 

C PITCHING MOMENT COEFF. 

S P = C ( 1 , 1 ) 

$W = SW + SP 

CNF = AF ( 3, 3) *DCP*SR 

CN = CN + CNF 

CM = CM + CNF*(ZC(1»JC! - XPTTCH) 

W= I te< NT SHUT ,5060 ) IP,( ZC f I , JC ), 1=1,0) , VU*VL,DCP»CPU,CPL«SP 

5 C 6 j F OF M AT { 3 X , I 4 * 2X , 13F9.4) 

GO T C 900 

9CC WR I T F< NTSOUT, 5070) I P , ( Z C ( I » JC ) , I = I » 3 ) , VU, VL t DCP 
5070 FOR MAT ( 3X,I4»2X * 1 C-FP. 4 ) 

900 continue 

C CALCULATES NORMAL FORCE COEFF., 

C PITCHING MOMENT CPFFF . 

SW = 2.*SW 

CN = ?.*CN/SW 

CM = 2. *CM/ ( 5CHOF D*SW ) 

WR I T E ( NT SOU T, 50 30 ! C N, C M, X P ITC H , F CHORD ♦ SW 
5080 FO= MAT( ///47X,*N0RMAL FOR C F COEFFICIENT =*,3X,F0.4/ 

1 47X, *P I TON IMG moment COEFFICIENT = * , c 9. 4/ 

2 4 7 X , * P ITCH AXIS =*,17X,F9.4/ 

3 A 7X , *R DOT CHORD = * , 17x , F9 . 4/ 

4 4 7X , * W I NG AR F A =*,18X,F9.4! 

C 

C PRINTS CCFNEF PUINTS OF FREE SHEET NETWORK 


C . AND FED SHEET NE T WOF K 

WR I TF( NTSOUT , 5090 ) 

5090 FORM AT ( / // 49X, * X Y Z COORDINATES OF CORNER POINTS*| 

Jl = NZAC2I 4-1 $ J 2 = N 7 A ( 3 ) 

WR IT F( NTSOUT, 51. 00! ( ZM( 1 , J > , ZM( 2 , J > , ZM ( 3 , J ) , J = J 1 , J 2 » 

5100 FORMAT! /57X ,*FP.EE SHFET NFT WORK *// ( 1 5F8 . 3 I! 

Jl = NZM3J + 1 $ J2 = MZA(4) 

wPITc (N tsOUT,511C) (ZM( 1, JI,ZM(2, J) ,ZM(3, J! , J=J1, J2» 
5110 FORMAT ( /57X, * F E D SHEET NETWORK*// ( 1 5E8. 3) ) 

RETURN. 


END 
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SUSP CUT I NE SINFCC(Z) 

C ****** 

C SUBROUTINE SINPCC ( Z > 

r 

C PURPOSE GIVFN THF X,Y,Z COORDINATES OF A POINT SINFCC DEFINE S A 

C MATRIX I QS OF S ) , WHICH WHEN MULTIPLIED BY A V £ C T UP CC1N- 

C SI STING OF VALUES OF ALL DOUBLET PARAMETERS, GIVES THE 

C VALUE AND 1S T ,2N0 DERIVATIVES GF DOUBLET STRENGTH AT THE 

C GIVEN POINT 

r 

C INPUT CALLING SEOUFNCF 

C Z - X , Y , Z COORDINATES OF THE GIVEN POINT 

C COMMON BLOCK 

C. /INDEX/ -.NS NOT 

r /P ANDO/ - P 0 , Af , A S T , 1 1 S , INS 

C 

C OUTPUT COMMON BLOCK 

C / SNGC / - OSDFS 

C 

C SUOPCUT T NFS ■■ 

C CAM. ED UN I PAN 

C 

C DISCUSSION SUBROUTINE UNIPAN CONVERTS THE INPUT POINT FROM THE 

C UNIVERSAL T 0 LOCAL PANEL COC c OINATE SYSTEM. 

C A SIX FY S I y MATRIX IS FORCED BY THE GENERAL EQUATION 

C REPRESENTING THE DOUBLET STRENGTH DISTRIBUTION AT THE GIV 

C -EN POINT ON A PANEL AND ITS DERIVATIVES. 

C A SIX RY SIXTEEN MATFIX (AST) FOR COEFFICIENTS OF CUAO 

C -RATIO DOUBLE 1- DISTRIBUTION ON THE PANEL ALSO EXISTS. The 

C MATRIX IS COMPUTED IN SUBROUTINE SING. 

C THF MATRIX OSDFS IS FORMED BY MUl. T I PL Y I NG THE SF TWO 


C MATRICES. 

C ****** 

COMMON/I NDEX/NT{ 9) , NM ( 9 ) , NN ( 9 ) , NP ( 9 1 , NS ( 9 ) , NC ( 9 ) , NZ ( 9 ) , 

CNPA( 10 ) , NS A ( IQ) ,NCA< 1 C » ,N7A ( 10) * NNF TT , N P ANT ,NSNGT,NCTPT,NZ Mp T 
COMMCM/PANDO/CPI 3,4) ,PC( 3 ) ,R0(3 ) , AR( 3,3 ) , ART(3, 3) ,P (2,4) ,A,B,DI AM, 
CC(6,6) ,AST( 6,16) »IIS( 16) , I NS , IT S , NPf)Q 
COMMON /SNGC/ DS QFS { 6 , 1 2 5 ) 

D IMENS ION Z ( 3) ,W ( 3) 

EQUIVALENCE (X,W(1)), ( Y , W ( 2 ) I 

r TRANSFORMS the INPUT POINT FRO" GLOBAL- T Q 

C LOCAL PANEL COORDINATE SYSTEM 


CALL U M PAN ( AP , R 0 » Z » W ) 

C SETS APRAY DSDFS TO ZERO 

CALL ZEFO( DSDFS, 6*NSNGT) 

C MULTIPLIES Two MATRICES TO FORM THE MATRIX 

C DSDFS 

DO 2 CO I C= 1 * IN S 
T S= I I S ( I C ) 

0 X = A S T ( 4 , 1 C ) * X + A S T (5, IC)*Y 
0Y = AST(5,IC)*X + AST(6, IC) *Y 

OSOFS( I, IS) = DSDFS( 1 , I S) + AST ( I, IC H-( AST( 2,10*. 5*DX)*X 
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C ♦ ( A S T ( 3, IC ) 4-.5*DY )*Y 
OSOFSI 2 , IS )=DSDFS (2» I S ) 4- AST ( 2, I C ) 4-OX 

CSOFSI 3, ISI-DSQPS C3. IS1 + AST < 3.IC UOY 
0SOFS<4,ISl*OSDFSU,ISJ + 4ST(* t IC» 
nS0FS(5, IS)=DSDFS(5, I S ) ♦ A S T ( 5 » I C ) 
OSOF S ( 6 t I S ) =OSD rr S ( 6 ? IS>4 -AS t (6,IC) 

200 CONTINUE 
P E T !J RN 
ENO 
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o o 


SUBROUTINE SNGCAL(7.,TSC> 

C$**$<:* 

C SUP3CUTI NF SNGCAL IZ,TSC) 

C 

C PUPPCSF TO CALCULATE T H E VALUE AND 1ST, 2ND DEE I VAT IVES OF POUR- 

0 LET STRENGTH AT THE SPECIFIED POINT 

r- 

u 

C I f: p U T CALLING SEQUFNCE 

C 7. - X , Y , 7 COORDINATES OF THE GIVEN POINT 

C COMMON SLOCK 

C / S CL N / - S 

r 

C OUTPUT CALLING SFOUFNCF 

C TSC - ARRAY CON S I S T$ OF THE VALUE AND 1ST, 2ND PF p j v A P I VF5 

C OF DOUBLET STRENGTH 

C 

C S UP P CUT INFS 

C CALLED SINFCCfMMULT 

r 

DISCUSSION SNGCAL CALLS SUBROUTINE SINFCC TG PRODUCE THF MAT=IX 

OSPFS. MMULT MULTIPLIES THIS matrix BY THE VECTOR CONSIST 
C -TNT OF VALUES OF ALL OOUBL c T PARAMETERS PFEVIOUSLY OB- 

C TAJNED TO PRODUCT THE VALUE AND 1ST, 2ND DERIVATIVES nr 

E DOUBLET STRENGTH AT THE GIVEN POINT 

r ♦*$$$$ 

COMMON/ I NDEX/NT( 9 ) , NM ( 9 » . NN( 9 I , NP ( 9 ) , NS ( 9 1 , NC ( 9 ) , NZ ( 9 I , 

C N P A ( 10 I t NS A (10 I ,NCA( 10) ,NZA ( 10 ) , NNET t , N PANT , NSNGT , NCT « T , N/mpt 
C 0 MW CN /SNG C/OS DFS< 6» 125) 

COMMON /SOLN/SI 125) ,Z A(75 ) 

DIMENSION Z ( 3 ) ,TSC(6) 

CALL SINFCC (Z) 

CALL MvuLTI DSDFS, S , TSC , 6 , NS NOT, 1 ) 
return 

F NO 
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SUPPCUTINE BSU8SMU ,NP,N, IPR,B, w ) 

SUBROUTINE 0SU8SM ( A , NR , N , I PP , 8 , M ) 

PURPOSE TO PERFORM BACK SU3 S T I TUT I ONS USING THE FACTORIZATION OB- 
TAINED from A DECOMPOSITION ROUTINE AND FIND THE SOLUTION 
FOP A SYSTEM CF EQUATIONS 

INPUT CALLING SEQUENCE 

A - THE LOW EF TRIANGLE OE THE ARRAY CONSISTS OF A LOWER 
TRIANGULA?' MATRIX L and THE UPPER TRIANGLE CONSISTS 
OF AN UPPER TRIANGULAR MATRIX U. THE v ARE OBTAINED 
FROM A DECOMPOSITION ROUTINE SUCH AS TOECOM 
NR - MAXIMUM pqw DIMENSION OF APR AYS A AND B 
N - ORDER' OF THE. COEFFICIENT MATRIX 

I P R - ARRAY CONSISTS OE NUMBERS OF PIVOTAL ROW, AS DERIV- 
ED from thf subroutine t-dfcom 

B - APPAY CONSISTS OF M FIGHT-HAND SIDES OF THE LTNEAF 
SYSTEM 

M - NUMBER OF RIGHT-HAND SIDES 

OUTPUT CALLING SEQUENCE 

B - SOLUTION VECTORS 


SUBROUTINES 
CALLED VIPS 

DISCUSSION the P0tJ T INF FIRST USES PIVOTAL INFORMATION GIVEN IN 
THE ARRAY I PR TO FX CHANGE ELEMENTS OF RIGHT-HAND SIDES. 

IT THEN PERFORMS F GR WAR D SUBSTITUTION BY SOLVING THF LOW- 
ER TRIANGULAR SYSTEM OF EQUATIONS LY S B AND BACKWARD SUB- 
STITUTION BY SOLVING THF UPPE P TRIANGULAR SYSTEM 0 p EQUA- 
TIONS UX = Y . X IS THF DESIRFO SOLUTION QF THE GIVEN SYSTEM 
OF EQUATIONS. 

THE ROUTINE IS A MODIFIED VERSION OF A ROUTINE IN THE 
SUBROUTINE LIBRARY OF THE BOEING COMPUTER SERVICES CO. 

* 

DIMENSION A(NR',1>,IDR(1I»B<NR,1) 

USES PIVOTAL INFQPMATION TO EXCHANGE 
ELEMENTS OF RIGHT-HAND SIDES 

OQ ID 1=1, M 

IF ( TORI M.EQ.I ) GO TO 10 
00 5 K=l,M 
X=B( I«K) 

J= I P P ( I ) 

B< I ,K)=B( J,K> 

5 B { J * K ) = X 
10 CONTINUE 

C PERFORMS FORWARD SUBSTITUTION 

NMI = N - I 
00 50 K=1,M 
B ( 1 » K ) = 8( L , K ) / 4 ( 1,1) 
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I F ( N . E 0 . 1> GG TO 30 
DO 20 I = 2 » N 

x = e ( i » k j 

CALL V I P $< M I » 1 > »NF » 9 ( 1 1 K J f 1 » I- 1 , X I 
20 F ( I , K ) = X/AU , I ) 

PEP FOR MS BACKWARD SUBSTITUTION 

3 0 R ( N , K ) = 8 ( N , K ) 

TFIN.EQ. IJ GO t 0 5C 
DO 40 IN=1,NM1 

I = N-IN 

X = P ( I , K ) 

II = T + 1 

call VIPS( A ( If I l) «N»« B( I If K) « l« IN. X I 
B ( T » K ) = X 
40 CONTINUE 
50 CONTINUE 
F=TUPN 



[DENT CMAB ( A , R , R , NP A ♦ NC A , NCR ) 

£ tF# $ 

* $ upp cut inf cmar ( a , b » f ♦ nr a » nc a * nc b ) 

* 

« PUP PCS E 


TO MULTIPLY TWO MATRICES WHOSE El C MFNTS A? E STOP ED 
COMPAC T LY PY FOWS (COMPASS) 


INPUT 


CALLING SEQUENCE 


pi 


A - LOCATION 

OF 

PIP ST MAT FIX 

* 


P. - LOCATION 

OF 

SECOND MATRIX 

£ 


P - LOCATION 

OP 

RESULTANT mats IX 

❖ 


MF A - NUMBER 

OF 

ROWS IN FID SI MATRIX 

t 


NC A - NUMBER 

OF 

COLUMNS TN F ! p S t MATRIX 

* 

p 


MCB - NU M BEP 

n F 

COLUMNS IN SECOND MATE IX 

* 

OUTPUT 

CALLING SEQUENCE 

* 

p 


P - RESULTANT M a tc IX 

❖ 

SURF CUT I NFS 



* 

p 

CAl LED 

NONE 



* 

p 

DISCUSSION PERFORMS 

tht 

MATRIX OPERATION (P) = 

p 

WARNING - 




* 

w 

$*$#$** 


= ( &) (A) 


THIS POUTTNE USES P L! N CONVENTION CALLING SEQUENCE 
DC NOT CALL FROM FTN COMPILED P C CGPAMS 


CMAR 


Entry 

bssz 


C.m AB 

l 


* 

* 

* 


INITIALIZATION PORTION 


SA4 
S A 5 
DX 7 
S 34 
SAC 
SB5 
S A3 
SXO 
SB7 
SB6 
Bx l 
SA4 
ZR 


B4 

85 

X4*X5 
PI + X5 
BL 
X5 
B6 
1 

B 1+X 7 
y 3 

xr*x 3 
P 3 + X 3 
X 1 ,Cl.OOP 


LOAD 
LOA r 
GET 
LAST 

SAVE 
NUMBEE 
NUMBER 


NUMBER 
NUMBER 
NUMB F 3 
AOOPESS 
ADDRFSS 0 F A 
COLUMNS A 
COLUMNS 8 


OF ROWS A MATRIX 
OF DUWS R ‘^ATDix 

ELEMENTS IN MATRIX 
PLUS ONE FIRST ROW 
IN AO 


?- 

* 

* 

* 

* 

* 


CNF TO X 0 

LWA+ONF OF A MATRIX TO 37 
NUMBER COLUMNS B MATRIX 
EVFN/ODD FLAG FOR NCR TO XI 
STORE FWA S ECONO ROW OF B IN A4 
IF B HAS AN EVEN NUMBER OF COLUMNS 
NEED NOT 00 THE ODD LOOP 


PPQCFSS FIRST COLUMN 0 F P IF NCR IS ODD 


sx o 


B3 


SAVE ADDRESS OF P IN XO 


THE FOLLOWING CODE IS EXECUTED IFF NCB IS ODD 
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* 

* 

* 


F L 


* 

$ 


TL 


* 

* 

* 

* 


rioop 


* 

* 


FLOOR 


* 

* 

* 


I L OOP 


LOOPBACK IS FOB EACH ROW IN A 


mxs 

SA1 

SA2 


0 

91 

92 


ZERO TO X6 AS ACCUMULATOR 

FIRST ELEMENT OF ROW OF A TC XI 

FIRST ELEMENT OF COLUMN OF n TO XI 


LOOPBACK IS FOR THE INNER PFOOUC T ( NC A TIMES) 


FX5 

FBI 

$A 2 

SAL 

FX6 

LT 

NX6 

SA6 

SB4 

$9 3 

LE 

SB l 

SP3 

SB 2 

SB4 

SX1 

ZF 


X1*X2 
B 1 *■ 1 
A2+B6 

91 

X5+X6 
B 1 » 94 , IL 
X6 
P.3 

94 + 95 
83+36 
B 4 » 97 
AO 

XO+L 

92 + 1 

B 1 + 35 
96-1 
XI, CM A B 


multiply ELEMENT t 
°UMP ADDRESS IN A 
LOAD NEXT EL EMENT 
load next element 


b 


, * ELEMENT- 

UP AS LOQB COUNTER 
COLUMN OF 9 
ROW OF a 


FI 


ADO ON CURFENT CONT. +0 INNER PFOOUCT 
DONE if 9 1 IS POINTS TO NEXT 0 W OF A 

STOFE ELEMENT IN THE R M A T F J v 
BUMP INNER' LOOP DONE COUNT EP BY NC A 
BUMP P STORE BY NC B 

TEST FOP ALL ROWS FIRST COL OF R DONE 
RESTORE ADDF ESS 0+ A 

RESTORE P ADD. TO SECOND ELEMENT PF P 
RESTORE 9 ADD. TO SECOND ELEMENT OF P 
FFSTnog 94 TO LWA + 1 FIRST ROW OF A 
TEST FOR DONE AT THIS POIN T 
DON F IF ONLY ONE COLUMN IN 3 


PRIMARY PORTION OF CODE TO PROCESS MULTIPLY 


LOOPBACK IS FOR A PAIR OF COLUMNS IN p. 


SA1 

B 1 


LOAD FIRST ELEMENT OF A FQF INNER 

$xo 

B3 


SAVE ADDRESS OF R MATRIX COL IN XO 

LOOPBACK IS F OF. 

P OWE 

OP A 

MX 6 

0 


7 EF 0 T 0 X6 F CIP ODD ACCUMULATOR 

SA2 

32 


LOAD FIRST ELEMENT ODD COLUMN OF 

SA3 

9?+l 


LOAD FIRST ELEMENT EVEN COLUMN OF 

MX 7 

0 


ZERO TO X7 AS EVEN ACCUMULATOR 

LOOPBACK IS FOR 

INNFR 

PRODUCT ( N C A TIMES) 

FX 4 

Xl*X2 


START ODD MULTIPLY GOING 

SB 1 

91 + 1 


BUMP 81 AS LOOP COUNTER 

FX 5 

X1*X3 


START EVEN MULTIPLY GOING 

SA 2 

A 2+ 36 


LOAD NEXT FLFMENT ODD COLUMN n F R 

SAl 

91 


LOAD NF X T ELEMENT ROW OF A 

FX6 

X 6 + X 4 


ADD ON TNNFP PROD. 000 COL 

SA 3 

A 2+ 1 


LOAD NEXT ELEMENT EVEN COLUMN OF 9 

FX? 

X7 + X5 


ADD ON I INNER PR30. EVEN COL 
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1 T 

51,34, ILDQP 

DON E IF 

8 1 POINTS TO NEXT POW OF A 

NX 6 

X 6 



c a 4 . 

044-35 • 

ADVANCE 

34 TO NEXT ROW OF A 

SA6 

33 

STORE FLEKFNT R i ?j ODD COL 

NX 7 

X 7 



S3 3 

B3 + 36 

BUMP THF 

F STORE 8 Y NC3 

SA7 

A6+1 

STORF ELEME N T P IN EVEN COL 

l T 

51, 37 , SLOOP 

PONE IF 

31 IS p A S T THE A MATRIX 

c 3 3 

XC-4-? 

advance 

INITIAL VALUE OF B3 BY TWO 

SB 1 

Afi 

RESTORE 

B 1 TO FIRST ELEMENT 0 F A 

S a 2 

•324-2 

ADVANCE 

COL 5 POINTER 3 Y TWO 

S n 4 

014-35 

RESTO c F 

34 TO SECOND ROW OF A 

C Y 2 

A4-R3 

L WA 4- 1 OF 

E - NEXT COL OF c ADD C CSS 

N7 

X2 » CLOQP 

OCNF IF 

NEXT COL OF R IS SECOND POW 

FO 

CMA3 

get mr 


F»JD 
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S UP R CUT I NE CPHSS(A,B,C) 

C»**f*t 

C SUSP CUT I NF CROSS (A,B,C) 

PURPOSE TCI CALCULATE THF CROSS PRODUCT OF TWO VECTORS 

INPUT CALLING SEOUENCF 
A - FIRST VECTOR 
R - SECOND VECTOR 

OUTPUT CALLING SEOUENCF 

C - RESULTANT VECTOR 

SUPR CUTINES 
called NONE 

DISCUSSION CROSS PERFORMS THF FOLLOWING CALCULATIONS- 

C(l) = (A< 2 )* 8 ( 31 ) - (A( 3 )*B( 2 M 
C( 2 > = ( A ( 3 | *R ( 1 M - ( A( 1 )«R( 3 ) ) 

C ( 3 ) = ( A ( L } *5 ( 2 ) I - ( A ( 2 ) *8 ( D ) 

C ;***$$* 

DIMENSION A( 3 ) t R< 3 ),C( 3 I 
C( l)=A( 2 )*B( 3 )-A( 3 )*S( 2 ) 

C C 2 ) =A( 3 )*B(l)-A( 1 I*RH) 

C ( ? ) = A ( 1 )*R( 2 )-A{ 2 >* 3 ( 1 > 

RETURN 

END 
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SUSP CUT INE IPTFNS (IP) 

£****** 

C SUBROUTINE IPTPNS (TP) 

C 

C PURPOSE TO WRITE PANEL INFOP MAT ION ON DISK 


C 

C 

C 

c 

r 

r 

C 

r 

C 


INPUT CALLING SFOUENCE 

IP - PANEL NUMRFP OF INFORMATION TO BE WRITTEN 
COMMON BLOCK 

/PANOO/ - CP , PC f PO f AP, ART, P, A, R, 01 AM,C t AST f I I s, IMS 
/PINDX/ - K P , N p W R 

OUTPUT COMMON BLOCK 
/PINDX/ - KP 


r 


ITS 


C SUBROUTINES 

C CALL FO NONE 

r 

0 01 SC US SI CN WRITES 197 WORDS OF PANFL INFORMATION FROM COMMON 

r BLOCK PANOO ONTO DISK FILE SPECIFIEO BY NPWR 

COMMON IP AN CO/ POQ( 197) , NPDQ 
COMMON /PINDX/ KO,KnUM,NPAN,NDUM 
C 

ID = IP - KP 
IF (ID) 2CC , 300 » ICO 
100 IBPANCH = ID 
GO rc 250 
2 00 IRPANCH = IP 
PEWIND N PAM 

250 IF ( I BRANCH .FO,. II GO TO 290 
MAX = I BRANCH - i 
DO 275 1=1 , MAX 
275 WPTTF(NPAN) PDQC1) 

2D0 WPITC(NPAN) PDO 

300 KP = IP 
RETURN 
END 
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SUBROUTINE LINFQ$(A,NF,N, IPR,B,M,Ol> 

C#*#*** 

SUPS CUT I NE LTNEQS ( A , MR , N , l PF , B , M , D1 ) 

PUP PCS E TO SOLVE A SYSTEM OF LINEAR FOLIATIONS A*X = B 
INPUT CALLING SEQUENCE 

A - ARC AY CONSISTS OF ELEMENT S OF THE COEFFICIENT MATRIX 
N P - MAXIMUM ROW DIMENSION OE ARRAYS A AND R 
N - CROEP CF THF COEFFICIENT MATRIX 

B - ARRAY CONSISTS OF M RIGHT-HAND SIDES OF THF LINEAR 
SYSTEM 

M - NUMBER CF R IGHT-HAND SIDES 
OUTPUT CALLING SEQUENCE 

A - THE LOWER TRIANGLE OF THE ARRAY CONSISTS OF A LOWER 
TRIANGULA? MATRIX L AND THE UPPER TRIANGLE CONSISTS 
OF AN UPPER TPIANGULAP .MATRIX !J (SINCE U IS UNIT UP- 
PEP TRIANGULAR, ITS DIAGONAL ELEMENTS AR F NOT S T 0 R F D ) 
IPR - ARRAY GIVES NUMBERS OF PIVOTAL 0 OW (A OECORf) QR I N- 
T r R C H ANGF S ) 

B - SOLUTION VECTORS 

01 - = +1 OR -I ACCORDING AS THF NUMBER OF INTERCHANGES 
IS EVEN OR ODD. IT ALSO INDICATES SUCCESSFUL RETURN 
= 0 INDICATES THAT THE COEFFICIENT MATRIX APPEARS 
SI NGULAP 

SUPR CUT I NFS 

called tdecom, ssue sm 

DISCUSSION 'ROUTINE TDECOM IS FIPST CALLED BY LINEQS TO PEPFOPM 

THE DECOMPOSITION OF THF COEFFICIENT MATRIX A INTO A LOW- 
ER TRIANGULAR MATRIX L AMD AM UPPER TRIANGULAR MATRIX U. 
THE RESULT IS THEN USED IN BSUBSm por CARRYING. 0(jT BACK 
SUBSTITUTIONS AND OBTAINING the SOLUTION TO THE SYSTEM OF 
EQUATIONS. 

THIS ROUTINE IS A MODIFIED VFPSION OF A ROUTINE IN THE 
SUBROUTINE LIBRARY OF THE BOEING COMPUTER. SERVICES CO. 


DIMENSION A (NR, 1) ,IPR ( 1) ,B( NP ,1 ) 

CALLS ROUTINE to DECOMPOSE THE GIVEN . 
COEFFICIENT MATF IX 
CALL TDECOM (A,, NR ,N, IPR, IPR, 01 » 

IFIDl.EQ.O. ) GO TO 10 

CALLS ROUTINE to PERFORM BACK SUBSTITUTIONS 
AND OBTAIN THE SOLUTION EOF. THE SYSTEM OF 
FOUATIONS 

CALL BSUBSM ( A , NR , N , I PR , B , M) 

10 RETURN 

END 
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o r> r> o 


S UP? GUT I NE MW,ULT( A t n,C,L,M, N) 


f ****** 

C SUBROUTINE MMULT (A.BfCtL.M.N) 

r 


C 

r 

r 

c 

c 

r 

c. 

r 

r 

C 


PtJPPCSF TO MULTIPLY TWO MATRICES 

INPUT CALLING SEQUFNCE 

A - ARRAY CONTAINING ELEMENTS OF M ATP T X A 
g - AROAY CONTAINING ELEMENTS OF MATRIX 3 
L - N'.JMBbF OF ROWS IN A AND C 

M - NUMBER OF COLUMNS TN A AND ROWS IN B 

N - NUMBER CF COLUMNS IN B AND C 

OUTPUT CALLING sfouence 

C - RESULTANT MATE IX 


SUBP CUT I NF S 
CALLED C.MAB 

r 0 1 SC US S I C-N MMULT CALLS CMA B TO CALCULATE (C» = <A> (B) 

C * * * * * * 

DIMENSION A(L,M| , 8 < M , Nl , f. ( L » N J 
CALL CMAP( B , A t C. » NtMtU 
RETURN 
FND 
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o o ■**> o n o r* o o o o 


SUBROUTINE D ANIJN H ART , P.0 , Y , X ) 

C ***** * 

SUBROUTINE PANUNI ( AR T , P D , V , X ) 

PU C '°CSF to TRANSFORM POINT COORDINATES F c DM THR LOCAL. PANEL 
SYSTEM TO THE UNIVE°SAL SYSTEM 

INPUT CALLING SEQUENCE 

APT - LOCAL TO GLOBAL PANEL SYSTEM TRANSFORMATION M A T P I Y 

R 0 - X,Y,Z CCT>®DI NATFS OF PAVEL CENTER IUNIVFPSALI 

Y - X,Y ,Z COOPDINATES 0 F PO I NT TO BE TRANSFORMED! LOCAL) 

OUTPUT CALLING SEQUENCE 

X - X 1 Y 1 Z COOPDINATES OF TRANSFORMED POINT (UNIVFPSAL) 

C 

c SUBROUTINES 

C CALLED MMULT 

C 

C DISCUSSION THE LOCAL -PANFL COORDINATES APE MULTIPLIED BY THE 

C MATRIX ART IN SUBROUTINE wmult TO produce the global 

C PANEL COORDINATES WHICH, WHEN ADDED TO THE UNIVERSAL 

0 PANEL CENTER, PRODUCE THE UNIVERSAL COORDINATES. 

C ****** 

DIMENSION APT! 3, 3) , P O I 3 ) ,X( 3),Y( 3) ,W( 3) 

CALL MMULT { APT , Y , W , 3 , 3, 1 ) 

DO 1C 1=1,3 
10 X ( I ) =W( I ) *P0( I ) 

P F T IJ P N 
END 
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r> o n n o n o o n **> n n n .n o o r> o o o r> -n n r> no 


SUBROUTINE PDSEQSI A,NP.,N,DN,B,M,ni) 

£****<:* 

f. SUBROUTINE POS c OS ( A , NP , N , i) N , B, M , D1 I 

°UF POSE TO SOLVE A SYSTEM OF EQUATIONS A*x = B, WH F R ~ A IS A POSI 
-TIVF DEFINITE SYMMETRIC MATPfx, USING CHOLESKY DECOMPOSI 
-T ION 

INPUT CALLING SEQUENCE 

A - ARRAY OF WHICH THE UPPER TRIANGLE IS THE UPPER Tc \ an- 
GL F or A GIVEN POSITIVE DEFINITE SYMMETRIC. MATRIX 
NF - MAXIMUM ROW DIMENSION OF APR AYR A AND 5 
N - OROEP r F TH r POSITIVE DEFINITE COEFFICIENT MATRIX 
B - ARRAY CONSISTS OF M RIGHT-HAND SIDES OF THE LINEAR 
SYSTEM 

M - NUMBER OF P l OH T -HAND SIPES 

OUTPUT CALLING SEQUENCE 

R - SOLUTION V E C T f ! F S 

4 - ARRAY OF WHICH THE UPPFP TRIANGLE IS SAVE AS INPUT, 

T HE LOWER TRIANGLE CONTAINS THE LOWER TRIANGULAR MAT- 
RIX L FROM CHOLESKY DECOMPOSITION WITH DIACr.iMAI ELE- 
MENTS EXCLUDED 

DN - THE RECIPROCALS OF DIAGONAL ELEMENTS OF l 
D1 - = I C 0P SUCCESSFUL RETURN 

= 0 INDICATES THAT THE GIVEN COEFFICIENT MATFIX AP- 
PEARS NOT POSITIVE DEFINITE 

SUBROUTINES 
C CALLED NOJE 

C 

C DISCUSSION the ROUTINE FIRST PFPFOPMS THF CHOLFSKY DECOMPOSITION 

C OF THE GIVEN MATPTX A INTO A LOWER TRIANGULAR MATPIX L 

C AND ITS TRANSPOSE. IT t HFN SOLVES THE GIVEN SYSTEM OF EQU 

C -AT IONS BY BACK SUBSTITUTIONS. 

c*#***« 

DIMENSION A<NR, II ,DM( 1 ) , *( MR , II 
C PERFORMS CHOLESKY DECOMPOSITION 

DO PC 1 = 1, N 
K I = 1-1 
DO 2C J= I , N 
X = A( I, J) 

IFIKI.GT.GI CALL V I P S ( A ( I , II , NP , A ( J , 1) ,NF , KI , X ) 

TF(J.NF.I) GO TO 1C 
IF(X.LE. r '.) GO TO SC 
0 N ( I I = 1. /SORT! X) 

CO TC 20 

10 A { J, I ) = X*DN( I ) 

P.0 CONTINUE 
01 = 1 . 

C BACK SUBSTITUTIONS 

NM1 = N - 1 
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DO 60 J-l.K 
P ( 1 . J) = B ( It J)*DN( 1 ) 

IFfN.FO. 1) GO TO 

00 rc I = 2 » N 

Y = 8 ( I , J ) 

CALL V I P S ( A ( I , l » , NP , 0 ( l , J ) , i , I- 1 , Y ) 
P ( ! , J > = Y*ON( I ) 

IF(N«E0.1) GO TO b r 
30 CONTINUE 

40 R { \ » J ) = B< N, J I *DN(N) 

00 50 IM=1,\M1 

1 * N - IN 
v = B( I , J) 

II = 1*1 

CALL VIPSl A (lit I >tl,B( II , J) t I, !N,YI 
R ( I , J ) = Y*DN( U 
50 CONTINUE 
60 CONTINUE 
70 P f TURN 
80 ni - 0. 

r - r . tc to 

FNO 
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o o o n -n n o 


SUSP CUT INF °TP NS (I p ) 

C ****** 

C SUBPTUTINE PTRNS (TP) 

C 

C PURPOSE TO P E AQ PANEL INFCPMATTGN F PD W DISK 

r 

C INPUT CALLING sequence 

C IP - PANEL NUMBER O F INFORMATION TO BE READ 

r COMMON BLOCK 

C /PI NO X / - K 0 f N P R D 

C 

0 OUTPUT COMMON BLOCK 

/PAN 00/ - CP, PC, PC, AR,AF T ,P, A, 6, DIAM,C, AST, IIS, IN'S, ITS . 
/ P I NO X / - K.C? 

SUBPCUT INFS 
CALLED NONE 


DISC LSS I UN READS 197 WO°OS OF PANEL INFORMATION FROM DISK FILE 
SPECIFIED BY NPPP INTO COMMON BLOCK ° ANDO. 

r ****** 

C 

C READS PANEL INFORMATION FPOM DISK 


COMMON /PANDQ/ P DC ( 1 Q 7 1 , MPOO 
COMMON / P I N D X / KDUM , KP,NDIJM, NPAN 


C 


TO = I P - KP 
IF (ID) 2CC,300,IC0 


100 

I BRANCH = ID 
GO T C 2 50 


200 

T pc ANCH = TP 
PFWIND N PAN 


250 

IF ( ipranch . 

FO. 1) 


MAX = IRRANCH 

- 1 


P n 275 1=1, MAX 

2 75 

PFAO(NPAN) 

PDO( 1 ) 

290 

peao<npan) 

PDO 

^C9 

KP = IP 
P E T U PM 
FND 
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n ^ o ^ o o n o n n o o o 


SUBROUTINE T DE CO M ( A , N F » N * V , IPR,D1) 

C ****** 

C $UB C CUT I NE IDE COM ( A , N° , N, V , I PR , D1 ) 

r 

C PUPPCSF 


INPUT 


G U T P L T 


r 
C 
C 

r 

r 

C SUB 0 CUT I NES 

C CALLFD V J P, V I PS 

C 

C DISCUSSION THE ROUTINE PEPFOPMS THE CPOUT FACTOP IZATION of a G I V- 

C EN MATRIX WITH PARTIAL PIVOTING AND ROW FOUIL IBP AT I ON. 

C THE UPPER AND LOWER TP I ANGU L AR MATRICES R E SUL TED FROM THE 

C DECOMPOSITION APF STORED IN THE ARRAY A WHICH ORIGINALLY 

C CONSISTS ELEMENTS OF THE GIVEN MATRIX. IF ONE PE THE PI- 

C VOTS APPEARS TO BE TOO SMALL* 01 IS SET TO ZERO AND AN 

C ERROR EXI T IS TAKFN. 

C THIS ROUTINE IS A MODIFIED VERSION OF A ROUTINE IN THE 

r SUBROUTINE LIBRARY OF THE BOEING COMPUTER SERVICES CO. 

C ****** 

DIMENSION A (MR , L J ,V( 1 ) . IPP( U 
DATA EPS/164077777777777777768/ 

Efl=8 ,*EPS 

C CALCULATES LENGTH OF ROW VECTORS 

DO LC 1=1, N 

CALL VIP(A( T»1)'NR»A( I* 1),NR,N, Y) 

IE(Y.LE.O.) GO to 70 
1C VCI> =1./SQRT( Y) 

C PERFORMS THE DECOMPOSITION 

D 1= 1 . 

DO SC K= 1 , N 
L =K 


TO DECOMPOSE A SOU AP F MATRIX INTO LOWER AND UPPER TRIAN- 
GULAR MATRICES with partial PIVOTING AND ROW ECU I L I BR A- 
T I ON 

CALLING SEQUFNCE 

A - ARRAY CONSISTS OF ELEMENTS OF A GIVEN MATRIX 
NR - MAXIMUM ROW DIMENSION OF AR°AY A 
N - ORDER OF THE GIVEN MATRIX 

V - SCRATCH ARRAY, MAY BE SAME ARRAY AS IPR TO SAV° STOP 
-AGF 

CALLING SEOUFNCT 

A - THE LOWER TR.IANGI.F OF THF ARRAY CONSISTS OF A LOWFF 
T= I tNC-ULAP MATRIX L *ND THE IJPPE 3 TP TANGLE CONSISTS 
OF AN UPPER TRIANGULAR MATRIX I J (SINCE U IS UN T T UP- 
PPR TRIANGULAR, ITS DIAGONAL ELEMENTS ARE NOT STORED) 
ipp - asp AY GIVRS NUMBERS OF PIVOTAL ROW (A RECORD OF IN- 
TERCHANGES) 

D 1 - = + L UP -1 ACCORDING AS THE NUMBER OF INTERCHANGES 
IS EVEN OF ODD. IT ALSO INDICATES SUCCESSFUL DECOM- 
POSITION 

= 0 INDICATES THAT THE GIVEN MATRIX APPEARS SINGULAR 
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X = 0 . 

K 1 =K -1 
00 2C I = K » N 

Y = A{ I ,K ) 

tF(Kl.GT.d) C 41 L V I P S ( A (1 , 1 ) , NP , A ( 1 t K > , l , K 1 , Y ) 

A { I , k ) = Y 

v=AB5( Y*V( I ) I 
IF(Y.LF.X) GG TC 20 
X = v 
L = I 

20 CONTINUE 

IF(L.ee.K) GO Tn 35 
D 1 = - C I 
DO 3 C J = l ♦ N 
Y=A ( K f J ) 

A <k, J I = A ( L * J ) 

30 A (( , J)=Y 

Y ( L ) - V ( K ) 

3 5 T PP ( K > =t 

C CHECKS IF THE P I V0 T IS TOO SMALL 

IF(X.LT.FB) GO TO 70 
X S 1. /A ( K» K) 

J=K+ l 

40 IF(J.GT.N) GO TO 50 

Y = MK.JI 

TFIKI.GT.OI CALL VIPS< A(K, 1),MF»A< i, JJ * l,Ki,Yl 
A ( K t J ) = X * Y 
J = J+ 1 
GO Tf 4 o 
50 CONTINUE 
60 PETUPN 
7C PI = 0. 

GC Tf fcC 
END 
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r» n ^ n 


SUBROUTINE TP ANSI At AT ,M. N) 

C $***<=* 

r SUBROUTINE TRANS (A,AT,M,N) 

r 

C PURPOSE 

r 

c 

0 INPUT 

C 

0 


OUTPUT 

0 

r 

C SUBROUTINES 

c called none 

r 

C DISCUSSION AT(J,I) IS SFT TO A(I,J) AS I VARIES FROM l Tf M AND 

C J VAPIFS FROM 1 TO N. 

DIMENSION A(M»M) , 4T(N,M) 

no ICC 1=1 , m 
DO 5 0 J = 1 , N 
AT( J, I ) =AC I , J) 

5C CONTINUF 
100 CONTINUE 
RETURN 
END 


TO FORM THF TRANSPOSE OF A MATRIX A AND STORE 
THE RESULT IN A matrix R 

CALLING SEQUENCE 

A - ARRAY CONTAIN i mo matrix elements to BE TRANSPOSED 
M - NUMBER OF ROWS IN A AND COLUMNS IN R 
N - NUMBER OR COLUMNS in a AND ROWS in b 

CALLING SFQUENCF 

AT - ARRAY CONTAINING FLEMFNT S OF THE TF.ANSPOSF OF 
THE GIVEN MATRIX 
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o o o o r> o o n o n o o r> o n 


SUP-PCUTINP TFNSFP { X, Y»N> 

C ****** 

SUP e CUT I MF TC.NSFP <X»Y,Nl 


PURPOSE TO MOVE A HUM8FR CF ELEMENTS F P.CM ONE ARP AY TO ANOTHER 


INPUT CALLING SFGUENCF. 

X - LOCATION CF THF FIRST ARPAY ELEMENT TO B F MOVED 
N - NUMBER PF FLF M FNTS TO BE MOVED 


OUTPUT CAILING SEQUENCE 

Y - ARRAY OF ELEMENTS IDENTICAL TO THE FIRST N ELEMENTS 
IN ARF AY X 


S UR P CUTINFS 

called none 

DISCUSSION Y ( I ) IS SET T{J XU) AS I VARIES FROM I to 

c ****** 

DIMENSION X(N) ,y( N) 

DO ICO I = 1 » N 
100 Y ( I ) = X ( I ) 

P. F T U P N 
END 
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SUP 0 CUT I NF UNIPAN(AR,PC,X,Y ) 

C ****** 

C SUBROUTINE unipan (AR.PO.X.Y) 

c 

c pu^pcse 

r 

r 

C INPUT 

c 
c 
c 
c. 
c 

C OUTPUT 

C 

c 

C SUBROUTINES 

C CALLED kmult 

c 

C 0 T SC US S r ON THE COORDINATES of THE PAMFL CENTER ARP SU8TFACTED 

C Fcpy THE C GO FDI NATES OF TH C POINT TO BE TRANSFORMED. THIS 

C GLOBAL ARRAY IS T HFN MULTIPLIED 9Y THE MATRIX A - US'lNG 

C SUBROUTINE MMULT to PRnoUCF THE local panel COORDINATES, 

r *** *$ $ 

DIMENSION AC (3,3) , PCI 3 ) , X( 3 ) , YI 3) ,W( 3) 

00 10 1 = 1,3 
1* W ( I ) = X ( I ) - F 0 ( I ) 

CALL MMULTI AP,W»Y,3,3,IJ 

RETURN 

EMF) 


TO TRANSFPPM POINT COORDINATES FROM THE UNIVERSAL 
SYSTEM tq THE LOCAL PANEL SYSTEM 

CALLING SEQUENCE 

AP- GLOBAL TO LOCAL PANEL SYSTEM TP AN SF OP M AT I ON MATRIX 
PC- X , Y , Z COORDINATES OF PANE!. CENTER (UNIVERSAL! 
x - X,Y,Z cnrpOINATES OF POINT TO BE TRANSFORMED 
( UNIVERSAL » 

CALLING SEOUFNCE 

Y - X,y,Z COORDINATES OF TRANSFORMED POINT (LOCAL! 
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SUPR CUT I NE UVECT(A) 

r *#**<:<: 

C SUBROUTINE U VECT (A> 

C 

C PlJPPCSE 

c 

C INPUT 

C 

c 

C OUTPUT 

C 

c 

C SUB P CUT I NF S 

C CALLED NONE 

C 

C DISCUSSION UVECT PERFORMS THE FOLLOWING C ALCULAT I QNS- 

C All) / SOFT! A( 1)*A( ll+A(2)*A(2)+A( 3)*A(3)) .WHFPE 

C I VARIES FP D M 1 TO 3. 

c 

DIMENSION A (3) 

?=SOFT( A( 1| **2«-A( 2>**?+A( 3)* *2) 

DO 10 1=1.3 

io a( n «a< n/z 

RETURN 

END 


TO CALCULATE THE DIRECTION COSINES OF A VECTOR 
CALLING SEQUENCE 

A - DIRECTION NUMBERS OF A VECTOR 
CALLING SEQUENCE 

A - DIRECTION COSINES OF A VFCTOP 
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I DENT VIP ( A, INCA,8, !NC9,NtC I 

******* 


* 

* 

❖ 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

♦ 

* 

* 

* 

♦ 

* 

* 

* 

* 


* 


* 

* 

* 

♦ 

* 

* 

* 


SUBROUTINE V I ° (A, INCA, 8, T NC Bt N f CI 

VIPA ( A, INCA* Bt INCetNtU 
VI (A, INCA, B» INC 8, N*C ) 

PURPOSE TO PERFORM VECTOR INNER PRODUCT CALCULATION (VIP) AN D TO 
ADO (VIPA) TO 0* SUBTRACT (VIPS) FROM AN INCOMING VALUE 
(COMPASS) 

INPUT CALLING SEOUENCF 
A - VECTOR A 

INCA - INCREMENT BETWEEN SUCCESSIVE ELEMENTS {? c A 
B - VECTOR B 

I N C 8 - INCREMENT BFTWF FN SUCCESSIVE ELEMENTS CF 5 
N - NUMBER OF ELEMENTS TO 9E MUL T I PL l ED 

C - AN INCOMING VALUE TO B c ADDED TO (VIPA) HP TO p E SUB- 
TRACTED FROM ( VIPS) 

OUTPUT CALLING SEQUENCE 

C - RESULT C = A. 8 (VIP), C = C ♦ A . B (VIPA), AND 
C = C - A.R (VIPS) 

SUBROUTINES 
CALLED NONE 

DISCUSSION THE INNER PRODUCT OF Two VECTORS A AND B IS CALCULATED 
AND STORED IN C (VIP). The RESULT IS ADDED TO (VIPA) QG 
SUBTRACTED FROM (VIPS) AN INCOMING VALUE C * A NO THE SUM OP 
THE DIFFERENCE IS STORED BACK IN C. 

THIS ROUTINE IS A MODIFIED VERSION OF A COMPASS ROUT- 
INE If) THF SUPCHUTINF LIBRARY OF THF BOEING C f?M P U T E R SER- 
VICES CO. 


******* 



ENTfi Y 

VIP, VIPA, VIPS 




VFD 

36/OHVI PA, 24/6 



VIPA 

essz 





5A4 

F'iOVA 

FETCH 

TRANSFER 


S A 1 

Bl 

FFTCH 

PRF-C 0 


ZR 

BO , GO 




vf n 

B6/0HVIPS, 24/6 



VIPS 

95 SZ 

1 




SA4 

FNDVS 

FETCH 

transfer 


S A 1 

Bl 

FETCH 

PRF-QP .. - 


7P 

eo , GO 



* 

VFD 

36/ OHV I P , 24/6 



VIP 

PSSZ 

I 




SA4 

EN'DV 

fetch 

TRAMSFEF 


SAI 

Bl 

FETCH 

ppp-po 

GO 

SA2 

33 

FETCH 

POST -OP 


py 7 

X4 

PUT TRANSFER IN X 7 


IXO 

xo- xo 

CLEAR 

PRODUCT REGISTER 
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?y 6 

BC 


CLEAP SUMMING REGISTER 


S * 7 

THRU 


STORE TRANSFER 


S A 3 

B2 

.GET 

INCA TN X 3 


SA4 

B4 

.GE T 

INCB IN X 4 


S A 5 

B5 


GET N IN X 5 


SR 2 

X 3 

.PUT 

INCA IN 02 


SR 4 

X4 

.PUT 

INCB IN *4 


S85 

X 5 


PUT N TN B 5 


SX7 

80 


CLEAR FOR FIRST ADD OF X6 + *7 


SB7 

0 •"' + 2 


GET 2 R OR OECP N. 


SVC 

30+ l 


MASK TO DETERMINE ODO/EVFN 


Pxo 

XC*X5 


MASK LOWRP BIT 


7P 

XO .EVEN 


IF EVEN, BY PASS 000 E L EM SETUP 


R XO 

XI *X2 


ODD, P n FIRST ELEMENT 


SBS 

65-1 


DC CP N 


7 ' 

3 5 , DUNF 


IF N = 1 , DON E 


F X 5 

XQ + X6 


ADD FIRS T TERM IN OOP CASE 


SA1 

A 1 +6 2 


GET NEXT 5LEM of PRE-OP 


S A 2 

A 2 +34 


GET NEXT FLEM PQST-np 


A X 6 

X5 


NORMAL I 7E FIRST APO 

EVEN 

LX 3 

1 


GET TNCA*2 


L X 4 

l 


GET INC 3*2 


SB l 

X 3 


91= ? * I ME A 


S3 3 

X 4 


93= 2* INC 9 


S A 3 

AI+B2 


GET 2NP ELEM OF PRE-OP 


SA4 

A2+B4 


GET 2ND ELEM QF POST-QP 


SB 2 

01 


B2= ?*INCA 


584 

B3 


94 = 2* IMCB 


7.P 

30, START 



r V FP 

S A 1 

A1 + R2 

.LOAP PFE-OP 


Ry 5 

X 0 + X 6 


SUM FIRST MULTIPLY 


St 2 

A? + B4 

. L P A C 

' POST-OP 


St 3 

A 3 + B ? 


10 A 0 2ND PRE-OP 


NX 6 

X 5 


NORMALIZE FIRST ADO 


SA4 

A4+B4 


LOAD 2ND PCST-OP 

START 

SB5 

85-97 


CFCREMENT N 


R X 5 

X6 + X7 


SU M 2ND MP Y (DUMMY FIRST T T M c ) 


= xc 

X 1 * X 2 


FIRST MULTIPLY 


5X7 

X 3*X4 


SECOND MULTIPLY 


NXfc 

X5 


normalize SECOND ADD 


V7 

B5 , OVER 


DONE WHFN N=C 

HOME 

R X 5 

XO+xfc 


FINAL ADD - FIRST MPY 


NX 6 

X5 


NO R M 


R X 5 

X7+X6 


FINAL ADD - 2ND MPyt IF N = l, X7 = 0.) 


NX 6 

X 5 


NO R M 

thru 

essz 

1 


STUFFFP WITH A TRANSFER 

HUTVA 

SA1 

96 


FETCH C 


D X 7 

XI + X6 


ADD C 


NX6 

X 7 




SA6 

B 6 


ST OF F 


7 P 

BO, VIP A 



putvs 

SA1 

B6 
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SUR I NNFF PPnDUCI 



PX7 

Xl-Xfc 


NX6 

X 7 


SA6 

86 


ZR 

80, VIPS 

FNOV£ 

7P 

80.PUTVA 

? NJOVS 

Z P 

R° » OUTV S 

r K*n V 

SA6 

36 


ZF 

30, VIP 


END 
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IDENT ZERO 


(A f N) 


******* 

* SUER CUT I NE ZERO (A,N) 

* 

* PURPOSE 

* 

* INPUT 

* 

* 

* 

* OUTPUT 

* 

* 

* SUBROUTINES 

* CALLED NONE 

* 

* DISCUSSION 4(1) IS SET TO ZERO AS I VARIES FP.QM l TO N. 


• *** *** 
♦ 

VFD 

36/ OH ZERO* 2^/6 


ENTRY 

ZERO 

ZERO 

°SSZ 

1 


S A 2 

B 2 


S84 

X? 


SR 3 

80 


SB 5 

l 


SX6 

BO 

CYCLF 

S A6 

81+33 


SB 3 

83 + 85 


l.T 

83, 9*, CYCL E 


EC 

ZERO 


END 



TO SET THE ELEMENTS OF AN ARRAY TO ZERO (COMPASS) 
CALLING SFQUENCE 

A - LOCATION OF FIRST ELEMENT TO BE SET TO ZERO 
N - NUMBEP OF ELEMENTS TO RE SET TO ZERO 

CALLING SEQUENCE 
A - array of ZERO ELEMENTS 


Boeing Commercial Airplane Company 
P.O. Box 3707 

Seattle, Washington 98124 
September 24, 1975 
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APPENDIX 


ENGINEERING AND PROGRAM VARIABLES 


Engineering 

variable 

Description 

Program 

variable 

Reference 
program or 
subroutine 

a 

Parameter of Smith’s conical solution 

A 

SHEGEN 

A kj 

Aerodynamic influence coefficient 

DVDFS 

VINFCC 

(B) 

Matrix defined by eq. (42) of Engineering 
Document 

VS 

VINFCC 

c m 

Pitching moment coefficient 

CM 

OUTPUT 

C N 

Normal force coefficient 

CN 

OUTPUT 

C P 

Pressure coefficient 

CPU.CPL 

OUTPUT 

Ac p 

Jump in pressure coefficient 

DCP 

OUTPUT 

[c] 

Matrix for coefficients of quadratic 
doublet distribution on a panel, defined 
by eq. (23) of Engineering Document 

AST 

SING 

(D) 

Matrix, defined by eq. (19) of 
Engineering Document 

DVDV 

PIVC 

(DK) 

Matrix, defined by eq. (40) of 
Engineering Document 

DVDS 

PIVC 

E 

Function, see eq. (46) of Engineering 
Document 

EMUE, 

EMU 

FGCAL 

f(i) 

Vector, defined by eq. (52) of Engineering 
Document 

RX 

ITFLOW 

F 

Function, see eq. (46) of Engineering 
Document 

FVZ 

FGCAL 

G 

Function, see eq. (46) of Engineering 
Document 

GVZ 

FGCAL 

J 

Jacobian 

AJ 

ITFLOW 
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Engineering 

variable 

Description 

Program 

variable 

Reference 
program or 
subroutine 

IK1 

Matrix, defined by eq. (37) of 
Engineering Document 

DVS 

PIVC 

i*ni 

Chord length of panel segment in 
transverse geometry cut 

ZL 

INPUT 

M 

Number of panels on one-half of 
configuration 

NPANT 

INPUT 

N 

Number of doublet parameters in 
neighborhood of panel 

INS 

SING 

n d 

Number of doublet parameters on 
one-half of configuration 

NSNGT 

TSING 

n fs 

Number of free sheet panels on one-half 
of the configuration 

NP(2) 

INPUT 

N W 

One-half of the number of wing panels 

NP(1) 

INPUT 

P ij 

Panel corner point 

CP 

GEOMC 

Po ij 

Panel center 

PC 

SURFIT 


Position of elementary doublet 

ZPK 

SING 

S(X) 

Local wing semispan 

YLE 

INPUT 

s 

Panel area 

SP 

OUTPUT 

s w 

Wing area 

SW 

OUTPUT 

Ueo 

Freestream velocity 

FSV 

INPUT 

V 

Velocity 

VEL 

VG 

OUTPUT 

FGCAL 

V s 

Average sheet velocity 

VEL 

VG 

OUTPUT 

FGCAL 

Xp 

Pitch axis 

XPITCH 

INPUT 
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Engineering 

variable 

Description 

Program 

variable 

Reference 
program or 
subroutine 

a 

Angle of attack 

ALPHA 

INPUT 

7 

Constant in quasi-Newton method 

GAMA 

ITFLOW 

a* 

Vorticity 

Z 

OUTPUT 

r 

Strength of line vortex along terminated 
edge 

TSC(l) 

OUTPUT 

6<‘> 

Scaling parameter 

CALFA 

ITFLOW 

8 

Panel inclination in transverse cut 

ZA 

INPUT 


Doublet parameters along edges of 
networks 

S(l), . . . 
S(NEQ) 

FGCAL 


Doublet parameters not located along 
edges of networks 

S(NEQ+1), . 
S(NSNGT) 

FGCAL 


Doublet parameters on one-half of 
configuration 

S 

TEA378 

FGCAL 


OUTPUT 


181 


REFERENCES 


1. Weber, J. A.; Brune, G. W.; Johnson, F. T.; Lu, P.; and Rubbert, P. E.: "A 
Three-Dimensional Solution of Flows Over Wings With Leading-Edge Vortex 
Separation.” AIAA paper 75-866, presented at the AIAA Eighth Fluid and Plasma 
Dynamics Conference, Hartford, Connecticut, 16-18 June 1975. 

2. Johnson, F. T.; and Rubbert, P. E.; "Advanced Panel-Type Influence Coefficient 
Methods Applied to Subsonic Flows.” AIAA paper 75-50, presented at the AIAA 
13th Aerospace Science Meeting, Pasadena, California, 20-22 January 1975. 


182 


